


























AJÁNLATAINK: 


AMIGA-500 + kiegészítők 

BODEGA BAY (A500-»A2000) 

Floppy drive (3.5''-es, külső) 

Memóriabővítő k. (512 KB) 

Memóriabóvítő k. (512 KB, 2 MB-ig bővíthető) 

TV/RF modulátor 

ATonce emulátor kártya (Vortex) 

Winchester drive (40 MB) 

Winchester drive (60 MB) 


DE LUXÉ MIDI (A500/A2000) 

DE LUXÉ SOUND 3,0 (A500/A2000) 

DE LUXÉ VIEW 4.1 (A500/A2000) 

PÁL GENLOCK (+RGB Splitter, A500/A2000/A3000) 

C-64 + kiegészítők 

C-64 II, alapgép 
MPS-1230 printer 
VIDEÓ DIGITALIZÁLÓ C-64-hez 
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Számítástechnikai Fejiesztési 
Szolgáltatási és Kereskedelmi Kft, 

Iroda: Budapest XII., Istenhegyi út 58/b. 

Telefon/Fax: 155-6197 
Márkabolt; Budapest IX., Telepy u. 29. 
Telefon: 113-5424 

Nyitvatartás: Hétfőtől - péntekig 9-17-ig 
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EGYESÜLET 



MIT, HOGYAN, HOL, MIKOR? 

EXíYESÜLETI ÜGYEK: Egyesületünknek tagja lehet 
mindenki, aki a tagsági díjat befizeti. A tagdíjat személyesen 
az egyesület irodájában (1132 Budapest, Visegrádi utca 38/a. 
IV. em. 15. Telefon: 12-94-158), vagy átutalással az MNB 
217-98 292, OTP 565-3610-8 számlára lehet befizetni. Meg¬ 
rendelés esetén számlát küldünk. 

Pötyögőszolgálatunk valamint a szervizkedvezmény és az 
apróhirdetés lehetőségp tagjaink rendelkezésére áll. 

A DEÁKPÁHOLYA tagjai minden hónapban megkapják 
a C-újságot, a tagsági díj egy évre 777 forint. 

A PLUSZPÁHOLY tagjai minden hónapban megkapják 
a C-újságot, és kapnak havonta 3 db vásárlási utalványt, 
A tagsági díj egy évre 1888 Ft. 

A SZUPERPÁHOLY tagjai havonta 15 példányt kapnak 
a C-újságból, és ezzel havonta 15x3 db vásárlási utalványt is. 
Az éves tagsági díj 20 900 Ft. 

ÜGYFÉLFOGADÁS: minden kedden és csütörtökön 
14.30—18 óra között váijuk tagjainkat és az érdeklődőket. 

PÖTYÖGÓSZOLGÁLAT:Az újságban megjelenő prog¬ 
ramokat másolja a megrendelők részére. Megrendelhető sze¬ 
mélyesen az egyesület irodájában vagy postai utánvéttel. 
Cím; 1132 Budapest, Visegrádi utca 38/a. IV. cm. 15. 

Telefon: 12-94-158. 

APRÓHIRDEJTÉS: Az egyesületi tagoknak ingyen ált ren¬ 
delkezésére. Nem tagoknak a hirdetés ára 80 forint. A hirdetés 
módja:az újságban megjelenő nyomtatvány kitöltésével. 

A C-újság régebbi számai megvásárolhatók az egyesület 
irodájában, vagy megrendelhetők utánvéttel. 

Kedvezményes ár! Tagoknak olcsóbb! 

Az újságban eddig megjelent programok gépenként össze¬ 
gyűjtve megrendelhetók. VC 20, C16, PLUS/4, C128,C64. To¬ 
vábbi felvilágosítást is adunk a 12-94-158-as telefonszámon 
vagy levélben! 

Vidéki pluszpáholy-tagjaink háromhavi tikett összegyűj¬ 
tésekor igénybe vehetik a NOVOTRADE 2C Aruház csomag¬ 
küldő szolgálatát. 

Vidéken további információk kaphatók: 

Baja, AXIS Kft.,. 

Győri Bartók Béla Művelődési Ház, 

Jászberényi Városi Könyvtár, 

Kecskemét, SZIGMA-BIT, 

Pécsi Apác/.ai Csere János Gimnázium, 

Zalaegerszegi Ságvári Endre Gimnázium. 


Az Országos Commodore Egyesület módszertani kiadványa 
Egyesületi iroda és szerkesztőség: 

1132 Budapest. Visegrádi utca 38/a. IV. em. Tel.: 12-94-158 
Felelős kiadó: Horváth Judit, az egyesület elnöke 
Főszerkesztő: Pados Péter, az OCE főtitkára 
Felelős szerkesztő: dr. Horváth András 
Művészeti szerkesztő: Szulyovszky József 
Ügyintéző: Kátal Balázsné 

Levélcím: Commodore Újság, 1388 Budapest, 62. Pf.; 86. 

Index: ISSN 0237-756 X 

Terjeszti a Magyar Posta 

Megvásárolható a hírlapárusoknál 

MSZH Nyomda 


Tagdíjbefizetés 

Kedves Tagtársaink! 

Az év vége közeledtével felhívjuk figyelmüket 
1992. évi tagdíjuk befizetésére. Bár nem 
szeretnénk, de lehet, hogy az infláció következ¬ 
tében kénytelenek leszünk emelni a tagdíjakat. 
Ha erre sor kerül, azt még az idén, következő 
számunkban közöljük. 

A tavalyihoz hasonlóan az idén is lehetőséget 
adunk arra, hogy aki még 1991-ben befizeti 
a jövő évi tagdíját, az mindenképpen a régi áron 
(deákpáholy 777 Ft, pluszpáholy 1888 Ft, 
szuperpáholy 20900 Ft) teheti. 

Régi tagjaink a csekket az újsággal együtt 
kapják meg. 

Egyúttal felhívjuk figyelmüket karácsony előtt 
megjelenő januári számunkra, 
mely a téli szünetre sok érdekes és hasznos 
olvasnivalót tartalmaz- 

Országos Commodore Egyesület 

ReKlámpályázat 

Pályázatunk határideje október 15-én lejárt. 

Ez a pályázat nem volt olyan sikeres, mint 
tavaszi játékpályázatunk, jóval kevesebb mű 
érkezett. Ennek egyik oka talán az, hogy 
tudomásunk szerint Magyarországon eddig 
még sehol nem hirdettek ilyen versenyt. 

A Ideérkezett művekben inkább a befektetett 
munka dominált, mint az igazi jó ötlet, pedig 
mi az utóbbira voltunk igazán kíváncsiak. 

Ettől függetlenül közölni fogjuk a C=Újságban 
a legjobb reklámok képernyőfotóit, ahol lehet 
a programokat is. Eredményhirdetésre 
valószínűleg februárban kerül sor. 

Hamarosan újabb pályázatot hirdetünk, az érdek¬ 
lődők kísérjék figyelemmel jövő évi számainkat! 

A szerkesztőség 

Egyesületi klubdélelőtt a Petőfi Csarnokban: 

NOVEMBER 23. DECEMBER 14. 


A PÖTYÖGÓSZOLGÁLAT dőpontjai: 

November 5., 6., 19., 20. 

December 3., 4., 17., 18. 

5-18 óráig 
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Overscan 


Sok amigás hajlamos úgy megítélni programokat, hogy 
azok Overscan képernyőt (a standard Amiga-felbontásnál 
nagyobb képernyők, pl.: 703 x 300) használnak vagy sem. 
Ennek igen sokféle magyarázata lehet, nem is érdemes vele 
foglalkozni, inkább lássunk egy olyan programot Basic-ben 
és C-ben, amely bekapcsol nekünk egy ilyen képet. A prog¬ 
ramnak nincsen semmiféle különösebb trükkje, elég egysze¬ 
rűen átírni a VicwAddrcss 12. ős 14. szavát és már előttünk 
is áll az eredmény... 


TPe 


O 

O 

o 

o 

o 

o 

o 

o 

o 


OVERSCAN 

DECLARE FUNCTION ViewAddress6, LIBRARY 

LIBRARY "intuition.1ibrary" 

viewfii - ViewAddressS, 

POKEW viéwS.+ 12.26 
POKEW viewS.+ ld.l06 

CALL RemakeDisplay 

SCREEN 1.706.300.2.2 


WHILE INKEY-"" 
WEND 

SCREEN CLOSE 1 
LIBRARY CLOSE 


END 


O 

O 

O 

o 

o 

o 

o 

o 


OVERSCAN.c 
AztecC3,6a 


cc + l < név > 

In <neví -le -im 


C 

o 
o 

♦ include <. íunct lons. h ^ 

#inolude s'exec/t.ypes .h> 

O #include < intuit ion/intuit ión. ^l 


íití U'. t: Intui t lonBdOí^ 
struct Sereen 
struct View 


* Intuit. 1 .•riBa-.. 
•Ser: 

•V; 


Struct NewSereen NewSereen- 
< 

O.Ú. 

706.300. 

2. 

0 . 0 . 

HÍRES. 

CUSTOMSCREEN. 

NULL.NULL.NULL.NULL 


nta 1 n I ) 


Intuit lonBőtse-ístruct Intult. i.-rib<n..<e • 

OpenLibraryi"intu11ion. \i m arv' . 0 •; 

V“VlewAddresa(); 

pokew (V+12.26): 
pokew (V+14.106); 

RemakeDisp1ay(); 

Ser -< struct Sereen*)OpenSereen ( 

[lelay 1000) : 

CloseSereeníSer I; 

CloseLibrary(Intuit jonBase):_ 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

ü 

o 

: O 

o 


Mandelzoom 

Ugyan már sokféle programot láthattunk, sokféle nyel¬ 
ven az örökzöld témának számító Mandelbrot-halmazzal 
kapcsolatban, de megítélésem szerint a hobbigépek közül er¬ 
re a célra legalkalmasabbra (éppen grafikai képességei és se- 
be.ssége miatt), az Amigára még csak igen szegényes kíná¬ 
lattal találkozhattunk. 

Ezt a rést kívánnánk betömni Mandelzoom nevű progra¬ 
munkkal. 

NOVEMBER 4 


A lista első ránézésre ijesztőnek tűnhet, de nem kell 
visszariadni a begépeléstől. 

Ami a listában tulajdonképiien gondot okozhat, az a szá¬ 
mokat tartalmazó két tömb. Az első (col[]) a program által 
használt 32 szín RGB kódját tartalmazza hexadecimálisán, 
a második (co(]), pedig a tömb elemeire mutató számok. 
Ezek alapján fogja a gép színezni a képernyőt. 

A vizsgálandó terület adatait a main() függvény elején 
az ol (oldalhossz), xs (bal felső X sarok), ys (bal felső Y sa¬ 
rok) és az it (elvégzendő iterációk száma) változókkal állít¬ 
hatjuk be. TPE 
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'o 

o 


MAKDELZOOM.C 

Azt«cC3.6a 

cc +1 <nev> 

In <nev> -*lc -lm -o 


Q ijnclude <functiona.h> 

*include < 0 xec/typea.h> 

*include <intuition/intuition.h> 


o 

o 


struct IntuitnonBase 
struct GfxBase 
struct Screen 
struct VíewPort 
struct RastPort 


*IntuitionBa8e; 

*6fx&a8e: 

•Ser: 

*VP: 

•RP: 


o 

o 

o 

o 

o 


struct NawScreen NewScraan 


o 

< 

0.0. 

204.204. 

5. 

o 

0.0. 

MULL. 

CUSTOMSCREEN 
NULL.NULL. 

o 

NULL.NULL 

) 1 


o 

o 

o 


IJWORD coUl - 1 Oxfff .Oxíff .Oxfff .0x20d.0x30c. 

0x40b.OxSOa.0x609.0x706,0x807. 
0x906.OxaOS.0xb04.0xc03.0xd02. 
OxaOl.0xf00.0xfll.0xf22.0xf33. 
0xf44.0xf55.0xf66.0xf77.0xf88. 
Oxf99.Oxfaa.Oxfbb.Oxfcc.Oxfdd. 
Oxfee.0x000 >: 


o 


o 


BYTE co(l 


o 

o 

o 

o 


3.4.5.6.7.8.9.10.11.12.13.14.15.16.17. 

18.19.20.21.22.23.24.25.26.27.28.29.30. O 

29.28.27.26.25.24.23.22.21.20.19.18. 

17.16.15.14.13.12.11.10.9.8.7.6.5.4. 

3.4.5.6.7.8.9.10.11.12.13.14.15.16.17. 

18.19.20.21.22.23.24.25.26.27.28.29.30. O 

29.28.27.26.25.24.23.22.21.20.19.18. 

17.16.15.14.13.12.11.10.9.8.7.6.5.4. 

3.4.5.6.7.8.9.10.11.12.13.14.15.16.17. 

18.19.20.21.22.23.24.25.26.27.28.29.30. Q 

29.28.27.26.25.24.23.22.21.20.19.18. 
17.16.15.14.13.12.11.10.9.8.7.6.5.4. 

3.4.5.6.7.8.9.10.11.12.13.14.15.16.17. 
18.19.20.21.22.23.24.25.26.27.28.29.30. Q 
29.26.27.26.25.24.23.22,21.20.19.16. 
17.16.15.14.13.12.11.10.9.8.7.6.5.4 }t 


ma 1 niI O 

O < 

UBYTE l.k.qq: 
short it; 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


tloat le.a.b.zx.zy.XX.sl.s2.ol.xs.ys: 

ol - 2.5: 
xs —2: 
ys - 1.25: 
it - 50; 

IntuitíonBase - (struct IntuítíonBase *> 
OpenLibraryí"intuition.library".0)t 
■jfxBase - (struct GfxBase *1 

OpenLibrary("graphlcs.Iibrary”.01: 

Ser - (struct Seroen*) 0penScreen<6NewScreení: 

VP - &Scr->ViewPort; 

RP - &Scr->Ra3tPort: 

LoadRGB4<VP.col.32):SetAPen(RP.31>: 

Meve < RP.1.1): 

Draw(RP.202.1):Draw(RP.202.202): 

DrawíRP, 1.2Ű2) :DrawíRP. 1.1 

le - O1/200: 
a - xs; 

foríi-2:i< 202:i++ > 

< 

a - a ♦ le: 
b - ys; 

tor(k-2:k< 202:k*+) 


b “ b - le; 

2X - zy - 0: 

SetAPen<RP.31): 

fór(qq-1:qq< »t:qq++1 
< 

sl - zx • zx: 
s 2 - zy * zy: 

if(sl+s2>4)(SetAPen(RP.co(qql):break: ): 


XX - sl 
zy - 2 • 


s2 * a: 
zx * zy ♦ b: 


WrltePixel(RP.i.k): 


Delay(5001: 

CloseScreeniSc)): 
CloseLibraryiIntuitíonBase): 
CloseLibrary(GfxBaael: 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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Hang 

Gondolom sokaloiak szerez örömet az itt leírt rövidke 
program, mellyel bármilyen hangot képesek vagyunk meg¬ 
szólaltatni. 

A megszólaltatni kívánt hang hosszát a mainO függvény 
előtt található sd[<100>] változónál lehet beállítani. Ide tör¬ 
ténik a hang betöltése is, ami megoldható a programból vagy 
betöltés útján, ennek megoldását az olvasóra bízom. 

Kicsit lejjebb találhatunk ilyen sorokat: 

sound.ioa_Cycles - 1 — itt kell beállítani, hogy hányszor 
kívánjuk a hangot m^szólaltatni. 
sound.ioa_Period = 508 — itt a periódusidőt 
határozhatjuk meg. 

sound.ioa Volume - 64 — itt pedig a hangerőt. 
Szerencsés próbálkozást kívánok a program használatához. 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


SOUND.c 

AztecC 3.6a 


cc ♦l rad!<file> 

In <fil®>.o -le -lm -o 


finclude <exec/memory.h> 
•inciude <hardware/custom.h> 
finclude <hardware/dmabits.h> 
finclude <devices/audicí.h> 


extern struct MsgPort 
struct lOAudio sound: 
UBYTE st - OxOf.sdllOO]: 
tnain() 


•CreatePortl); 


í 


sound. ioa_Reque3t. io^Message .inn_Rep lyPort - 
CreatePort("p3",0) ; 

sound. loa^Request. lo^Messagn .mn.^Norie . ln_Pri • 10: 
sound.ioa_Data - &st: 

sound.loa^Length - (ULONGlsizeof(st): 

OpenDevice(AUDIONAME,OL.&sound.OLl: 

sound , ioa_Request. io_Cc>tnmand - CMD_WRXTE: 

sound.ioa_Request.lO.Flaqs - ADIOF.PERVOLlIOF_OUICK: 

sound.ioa^Data - sd: 

sound . ioa_,Cyc les • 1: 

sound.íoa_Length - sízeofisdi: 

sound.ioa_Perjod - 508: 

sound.loa.Volume * 64: 

BeginlOISiSound): 

WaitIO(&sound); 

Ci 08 eDevice(& 80 und): 


o- 

o 

D 

O 

o 

o 

o 

o 

o 

o 

o 
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A megbízható üzlettárs 



Régi ár Új ár 


Z-30 

O 

o 

o 

+ JÍFA 

59 900 + ÁFA 

Z-50 

7l^0J 

/áfa 

69 900 + ÁFA 

SF-6100 

119^ 

+ ÁFA 

99 000 + ÁFA 

SF-7300 

12^í 

^FA 

119 900 + ÁFA 

SF-7350 

CD 

O 

O 


139 900 + ÁFA 

SF-7800 

#4900 

+ Á^ 

184 900 + ÁFA 


Régi ár 


SF-7850 

SF-8300 

SF-8400 

SF-8500 

SF-8800 

SF-9800 



új ár 

214 900 + ÁFA 
319900 + ÁFA 
419900 + ÁFA 
359 900 + ÁFA 
459900 + ÁFA 
1 250900 + ÁFA 


Áraink egy év garanciát és a keliékanyagok árát is tartalmazzák! 


SHARP termékek a flSflflflflflfl-től 

-KERESKEDELMI KFT ^ 


1054 Budapest, Kálmán Imre u. 27. Telefon: 132-4392, 111-2083, 132-2544 
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& 

File-manipulációk Basicben 

• Az alábbi két rövidke program a Basic nyelvből történő 
filc ellenőrzésére és directory nyitására mutat egyszerű pél¬ 
dát. 

Az. első program (file-kereső) futtatás után először a ke¬ 
resendő fiié nevét kéri, ezután megpróbál megnyitni és be¬ 
olvasni egy ilyen nevű file-t, ha nem sikerűi, hibajelzést ad 
(fiié nőt found). Abban az esetben, ha minden rendben van, 
akkor a program újraindítja önmagát. 

A második program (makedir) egy alcímtárat kreál az 
aktuális meghajtóban lévő lemezre. Ennek nevét a DirNa- 
me$ változóban állíthatjuk be, miután ez megtörtént, akkor 
a program nekilát a munkának, ha hibát észlel, akkor kijelzi 
annak számát (error:...). 

TPE 



Fiié kereső 

O 

o 


INPUT "Name :":a$ 

ü 



GOSUB load 


o 


RUN 

o 

o 

load; 

ON ERROR GOTO NotFound 

OPEN a$ FÓR INPUT AS 1 

ON ERROR GOTO 0 

INPUT #l.za 

o 

o 


FÓR i-1 TO za 

o 



INPUT #l.a$(i> 




NEXT í 


o 


CLOSE i 

o 

o 

vissza: 

RETURN 

o 


NotFound: 

IF ERR-53 THEN 


o 


PRINT "File nőt íourid ! ! “ 
WHILE INKEY ♦l-"'*: 

VEND 

RESUME vissza 

o 


o 


END IF 

ON ERROR GOTO 0 

o 

o 

o 

MakeDír 

DECLARE FUNCTION CreateDiiS. LIBRARY 
DECLARE FUNCTION loErrS. LIBRARY 
DECLARE FUNCTION UnLockfi. 

o 

0 

o 


LIBRARY "dós.1jbrary" 

o 



DirName$-‘'Nev** 


o 


DirName $•DirName + CHR $(0) 

o 



er$-CreateDir&íSADD(DirName$)) 

o 


IF er&-0 THEN 

o 



feSi-IoErr (OS.) 

PRINT "Error : ": f eS, 


o 


ELSE 

te3t&-UnLock& íer&) 

o 

o 


ENDIF 



LIBRARY. CLOSE 

o 




RND 


Mivel az Amiga ROM-jában nem találunk beépített 
RND generátort, bizonyára sokan hasznosnak találják az 
alábbi rövid programot. 

A program C nyelven íródott, ami kicsit furcsának tűn¬ 
het, mivel a C fordítók rendelkeznek egy randQ nevű RND 


függvénnyel, ennek ellenére az itt közölt programnak több 
előnye is van. 

— Az ezzel a programmal előállított szám „véletlenebb”, 
mint a rand() függvény. 

— Mivel a lista a birtokunkban van, több lehetőség adó¬ 
dik a „véletlen” manipulálására. 

Ez a program tulajdonképpen egy igen széles körben el¬ 
terjedt (pl.: ZX Speetrum) rutin. Elvi működése a következő: 

— A SEED változó kezdőértékének beállítása (ez a gép 
belső órája alapján történik). 

— Az érték megváltoztatása bizonyos szabályok szerint. 

— A kapott szám osztása 65536-tal. 

Ez az utolsó művelet eredményezi a „véletlen számot”. 
A SEED szám megváltoztatásának szabályai: 

— hozzáadunk 1 -et, 

— szoroz.zuk 75-tel, 

— képezzük moduló 65537-et, 

— kivonunk 1 -et. 



RND.c 


o 

AztecC 3.6a 

o 

o 

cc +1 rad;<file> 

In <file>.o “lc32 -lm -o 

o 

o 

include <1ibraries/dos.h> 

o 


main() 


o 

int seed.rnd: 

o 

o 

struct DateStamp vr 


DateStamp(&v): 

o 

o 

seed - v.ds_Tick: 

o 

o 

3eed++; 

seed " seed*75: 

seed • seed-65537*(seed/65537); 
seed—; 

o 

o 

rnd - 3eed/65536: 



A legnépszerűbb 

játékok Németországban ^ 

A Lucasfilm Gamcs, Zak McKrackcn játéka vezeti a lis¬ 
tát. Szorosan követi a Turrican, de ennek a játéknak a má¬ 
sodik része valószínűleg előrébb fog jutni. A táblázat hátsó 
részében föl-le megy a hinta, amint azt a jelenlegi és előző 
helyezések mutatják. 


Hely 

Cím 

Gyártó 

Mióta? 

1. (1) 

Zak McKracken 

Lucasfilm Games 

3. hónapja 

2. (2) 

Turrican 

Rainbow Árts 

3. hónapja 

3. (4) 

Maniac Mansíon 

Lucasfilm Games 

3. hónapja 

4. (3) 

Pirates 

Microprose 

3. hónapja 

5.(10) 

Katakis 

Rainbow Árts 

3. hónapja 

6. (-) 

Grand Prix Circuit 

Lucasfilm Games 

3. hónapja 

7. (6) 

Elité 

Firebird 

2. hónapja 

8 . (-) 

Last Ninja II 

System 3 

1. hónapja 

9. (5) 

Oil Imperium 

Reline 

2. hónapja 

10 . (-) 

X-Out 

Rainbow Árts 

1. hónapja 
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APRÓCSKÁK 




APRÓCSKÁK 


C64 játékprogramok el¬ 
adók . (kazettára) 10 Ft/db 
áron. Csere is lehetséges. Vá¬ 
laszborítékért listát küldök. 

Szilágyi Róbert, 3300 
Eger, Szarvas Gábor u. 2. 
IV/7. 

Programcsere lemezen és 
kazettán kb. 2000 db + 4-cs 
és 64-es programok. 

Solymosi Béla, 1204 Bu¬ 
dapest, Dc.s.scwffy u. 41. 


VC-20-asra játékprogra¬ 
mokat keresek. 

Láris Gergely, 8200 
Veszprém, Jutási út 59/9. 

C64 + 1541 II Hoppy + 
magnó + 1802 színes moni¬ 
tor + MPS 1230 printer 
(mindegyik garanciális) + 
joy + egér + 90 lemez, rajta 
200 nagyon jó játék és fel¬ 
használói program + pagefox 
e^ben vagy külön eladó. 
Árajánlatokat kérek. 

Cserpes Tamás, 9024 
Győr, Krausz D. u. 9. 


Figyelem! Értesítem T. 
Megrendelőimet, hogy elké¬ 
szült a fcnyceruzás rajzoló- 
program képtartalom-sürí- 
tővcl és szalagturbóval ellá¬ 
tott .változata. A program 
ingyenes, kérek hozzá adat¬ 
hordozót és postaköltséget. 

Margitai 

Eladó: hangosított 1531 
magnó (2400) C64 tápegy¬ 
ség (2200) 2 db mikrokapcs. 
joystick (1600) 80-as disbox 
(800). 

Stierbach, 1224 Buda¬ 
pest, VII. u. 4. 


Fényccruzák kaphatók 
rajzolóprogrammal együtt 
C/+4 és övi tett C-16 számító¬ 
géphez 1200 Ft + [xjstaköltség 
áron. Többszínű üzemmód, 
32 pontos főmenü. Külső ké¬ 
pek a programba behozbatók, 
a program által kdszített ké- 
[ek pedig más programion 
felha.sználhatók. SAVE-nél 
képtartalom-sűrítő és .szalagUir- 
tx'x A jxogramhoz adathordo¬ 
zót (flo|ipy vagy kazetta) ké¬ 
rek, fizetés Utánvéttel. Meg¬ 
rendelhető: Margitai, 21(X) 
Gixiöllő, Antalhcgyi út 37. 



Rákóczi 




Amiga 


PROGRAMOK 
ÁRUSÍTÁSA ÉS 
MENEDZSELÉSE 


es 


Commodore 


számítógépek javítása és eladása 

Átalánydíjas javítás kedvező áron 
C16 bővítés 64 kbyte-ra PC ÁRUSÍTÁS 

Csúcstechnológiájú PANASONIC telefonok és telefonrendszerek 




ídA 


flímcfw 

A 

Trading Company 


1088 Budapest, Rákóczi út 26. 
Telefon: 1-182-972, 

1-381-139 
Telefax: 1-182-972 

6000 Kecskemét, 

Március 15. u. 14. 

Telefon: 06/76/47-626 


Iskolaszámítógép-szerviz és Kereskedelmi Bt. 
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GlOBIOI 


EGYESÜLET 

MOM^ 


°tjDPÍPÉ^ 




MONITORÁLLVÁNY: 

3—14 kg 10 200 Ft 

8—24 kg 10 400 Ft 

FLOPPYMESTER: 

ALAPMÚSZER: 49 2(X) Ft 

NYOMTATÓ VEZÉRLÓKÁRTYA: 


Támasztólábbal 11 400 Ft 
Támasztólábbal 11 600 Ft 


TÁPEGYSÉG: 12 200 Ft 


20 900 Ft 


3M 


3M 


LEMEZEK: 

cs. 

kp. 

A teljes 
100 db felelt 
cs. kp. 

mennyiségre 

1000 db felelt 
cs. kp 

5,25" DS DD 48 TPl 

62 Ft 

60 Ft 

60 Ft 

58 Ft 

58 Ft 

56 Ft 

5,25" DS DD 96 TPI 

68 Ft 

66 Ft 

66 Ft 

64 Ft 

64 Ft 

62 Ft 

5,25" DS HD 

104 Ft 

102 Ft 

102 Ft 

100 Ft 

98 Ft 

96 Ft 

3,5" DSDD 

112 Ft 

106 Ft 

106 Ft 

100 Ft 

— 

_ 

3,5" DSDD 

192 Ft 

180 Ft 

186 Ft 

174 Ft 

— 

— 

Streamer kazetta: DC 2000 


1960 Ft 





SZERETETTEL VÁRJUK ÚJ ÜZLETÜNKBEN A III. KAPUNÁL! 
KÖVESSE A TÁBLÁKAT! 

Árainkhoz ÁFA-t számítunk! 


MOM GLOBIÓS Kft. 


Cím: 1126 Bp., Csörsz u. 35. 

Tel.: 155-4730 vagy 156-4122/587 Telex: 22-4151 
Fax: 155-9736 Levélcím: 1399 Budapest, Pf.: 701/413 


Az Országos Commodore 


C-64-be átkapcsolható új operációs rendszer 
(Speed) -t- resct beépítése: 2000 Ft 

1541 kompatibilis lemezegységbe Speeddos 
beépítése (átkapcsolhatóan) 40 TRACK 
(+85 blokljlemezoldal), valamint párhuzamos 
15 pólusú Canon csatlakozó beépítése: 2000 Ft 

C-64 USER-port 1541-es lemezegység 

összekötő párhuzamos kábel: 1300 Ft 

1541 kompatibilis lemezegységbe elektronikus 
lemezlyukasztó beépítése: 700 Ft 

PAGEFOX magyar ékezetes 
szövegszerkesztővel rendelkező cartrídge: 

(Epson típusú nyomtató min. 640 képpontos 
szükséges a nyomtatáshoz) 7500 Ft 

FASTLOAD (lemezes gyorstöltő, 

másoló, monitor) 1400 Ft 


Egyesület szolgáltatásai: 

TTL IC-TESZTER 

cartridge + program 4300 Ft 

288/256 kbyte-os eprornbank 

(vezérlő eprommal) 4700 Ft 

Epromégető (2716-túl 27256-ig) 4300 Ft 

8—16 kbyte-os epromkártya 

(cartridge, eprom nélkül) 600 Ft 

C-64-hez tároló oszcilloszkóp 

(párhuziimos kábel nélkül) 7500 Ft 

A háttértárakhoz epromok programozása 
(kész programok, vagy saját hozott programok 
beégetésével) egységesen; 500 Ft 


A fenti bővítések megrendelhetők levélben, vagy az 
OCE irodájában személyesen, minden páratlan héten, 
csütörtökön 17—18 óra között. 

Árainkat az alkatrészárak változásai befolyásolhatják. 
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EGYESÜLET 


Tisztelt Szerkesztőség! 

Nagy örömmel vettem kézbe az újság 11., novemberi szá¬ 
mát. Nekem egy Amiga 500-as gépem van, és az újság láttán 
— gondolom, jogo.san — reméltem, hogy ezentúl mindig 
fognak közölni ötleteket, híreket az Amigához. Csak emiatt 
a dolog miatt rendeltem meg újra egy évre az újságot. Na¬ 
gyon remélem, a közeljövőben ismét közölnek amigás cik¬ 
keket, programokat. Ennek segítése érdekél)cn küldöm a Bu¬ 
siness Card Makcr című amigás névkártyakészítö program 
leírását. Sajnos nem túl jó, de azért remélem, megfelel. 

Üdvözlettel; 

Baki Ádáin 

Business Card Maker 

Ez egy kitűnő névkártykészítő program. Igaz, szinte ki¬ 
zárólag Basicben írták, ebből adódóan kissé la.s.sú, de az egy¬ 
szerű és gyors kezelhetőség mindezért kárpótol minket. 
Rendelkezik a WYSIWYG (amit látsz, azt kapsz) funcióval 
is, ugyanis az egész fekső képernyőt lefoglalja a kártya képe. 
A menük! 

CARD 

New: Új névkártyakészítése. 

Open: Előzőleg elmentett kártya betöltése. 

Savé: Kész névkártyánk elmentése. 

Kill; Elmentett kártya letörlése a lemezről. 

Print: Kártya kinyomtatása. Meg kell adni, hányat 
nyomjon egyszerre. Egy A/4-es lapon 10 darab fér el. Egy 
sorban egyszerre kettőt is nyomtat, ezért minimum kettőt 
kell beírni. 

About: A copyright feliratot szemlélhetjük meg, OK-ra 
továbblép. 

Quit; Kilépés a programból. 

FONTS 

Enter text: A karakterkészlet kiválasztása után beírhat¬ 
juk a megjelenítendő szöveget. 

Delete: Szöveg letörlésére szolgál. Választása után men¬ 
jünk a letörlendő szövegre és nyomjuk meg az egér bal 
gombját. Használata után ez a funció magátol kikapcsoló¬ 
dik. 





Bőid: A szöveg kövér betűkkel való írása. 

Italic: A szöveg dőlt betűkkel történő írása. 

Underline: Aláhúzott írás. 

A többi 8 mind karakterkészlet-típus. 

ICONS 

Ezy.el a menüvel kis, negyed névkártyányi képeket ké¬ 
szíthetünk. 

Open: Korábl)an elmentett kép betöltése. 

Savé: Képünk elmentése. 

Kill: Előzőleg elmentett rajz letörlése. 

Makcicon: Itt rajzolhatjuk meg, illetve szerkeszthetjük 
át a képeket. Ez egy kis rajzprogramot is magába foglal. Az 
utasítások: 

Draw: Sziibadkczű rajzolás. 

Line; Vonalak rajzolása. 

Circle: Kör rajzolása. 

Box: Négyszög rajzolása. 

Fül: Üres terület beszínezése. 

Text: Szövegeket írhatunk. 

Undo: Előzőleg csinált dolog visszaállítása. 

H-Mirror: Vízszintes tükrözés. 

V-Mirror: Függőleges tükrözés. 

Clear; Kép törlése. 

OK; Ha a rajzolás kész, erre a feliratra áliít.suk be az 
általunk használni kívánt területet, és nyomjuk meg az ege¬ 
ret. Ezután kiválaszthatjuk, hogy a kártyának melyik sarká¬ 
ban legyen a kép. 

Cancel: Kilépés. 

EXTRÁS 

Imstall; A printer típusát állíthatjuk be. 

Fl-Load printer; Printertípus betöltése. 

F2-Save printer: Az általunk beállított paraméterek ki¬ 
mentése. 

F.S-Edit Existing printer: Adatok megszerkesztése. 

F4-Current drive: A mentési/betöltési útvonalat adhat¬ 
juk meg. Választhatunk DFO, DFl, DF2, DF3 floppyk közül, 
de lehetőség van winchesterről (DHO), illetve Ram-diskről 
(ram) történő tölt.sére is. 

NLQ On: A printer NLQ módjának bekapcsolása. Ez 
nem minden nyomtatónál működik. 


Tisztelt Szerkesztőség! 


Mellékelten megküldöm két programomat, amelyekkel 
megkísérthető a szerencse is. Az sem kellékes, hogy tanul¬ 
mányozásával programozási gyakorlatra tehet szert az olva¬ 
só. 

A programlista sorszámozását úgy választottam meg, 
hogy az egybedolgozás ne okozzon nehézséget! Az egyik Ix;- 
mutatkozókép és az egyik hardeopy elhagyásával, menü írá¬ 
sával, a listák egyesítésével már kész is az univerzális sze- 
renc.se játék! 

Szórakoztató lehetne a megoldások felfedezése minden 
ismertetés nélkül. Néhány dolgot azonban megjegyeznék an¬ 
nak, aki igényt tart rá. 

A címkép dekoráció is, betöltés után kedves meglepetés. 
Ám még érdekesebbé tehető a többszínű karakter üzem¬ 
móddal: 

11 POKE53270,PEEK(53270)OR16;REM (201 is) be¬ 
kapcsolás. 
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65 POKE53270,PEEK(53270)AND239:REM (253 is) 
kikapcsolás. 

Lottózó program 

Ez az első programom, készíté.sckor ismerkedtem a Ba- 
sic-nyelwel. Ma már talán néhány dolgot másképpen olda¬ 
nék meg. 

E program a 260—268. sorokban szabott feltételek alap¬ 
ján vélctlcnszámokat generál, azokat szelvényenként rende¬ 
zi és a képernyőre írja. A kapott feladat végrehajtása után 
a 220—230. sorok szerint választhatunk. 

Nyomtatás vála.sztása esetén válaszolni kell, hogy a 
nyomtató be van-e kapcsolva, igen esetén törlés, majd 346— 
347 sorok felírása után a képernyő tartalma a nyomtatóra 
kerül. Ezután ismét választanunk kell. 

Akár 8 számot is kérhetünk: de állandó számaink mellé 
is kérhetünk akár egy számot is. 

A legnagyobb szám meghatározásával az osztrák lottóra 
is tippelhetünk, de vála.szthatjuk például a 70-et, ha azt kí¬ 
vánjuk, hogy ennél ne legyen nagyobb szám. 
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204 

o 

206 


208 


210 

o 

212 


214 

o 

216 

218 


220 

o 


224 


226 

o 

228 

230 

o 

234 


23ó 


238 

o 

240 


242 

o 

244 

246 


248 

o 

250 


252 


254 

o 

256 


258 

o 

260 

262 


264 

o 

2ó6 

268 


270 

o 

272 


274 


27(b 

o 

278 


280 

o 

282 

284 


286 

o 

288 


2910 


292 

o 

294 


296 


298 

o 

300 


302 

o 

304 

306 


308 

o 

310 


312 


314 

o 

318 

320 

322 

324 

o 


328 

o 

330 


332 


334 

o 

336 


338 

o 

340 

342 


344 

o 

346 

348 


350 

o 

352 


FftINTCHR*(14 

PR INT "EJ.- - 

PRINT" 112347 


') UHRS < 155 t ; : F’0KE532Ö*:>, 1: P ŰKE53281,1 


^ZZ 


615; 

PRINT" 1645738 
PR INT" IS7374S 
PRINT"1684721 
PRINT"I233453B- 
PRINT"I857653BI 
PRINT"I683645BI 
PRINT"I467891 Bl 
PRINT"I28253IB' 

PRINT"I678435BI 
PRINT" I 27401i;>BI 
PRItjT" I 390163B' 

PRINT"I482715B' 

PRINT"I481929BI 
PRINT"I338337BI 
PRINT"I987372BI 

PRINT"I672832B - 

PRINT" I 1920293801 
pR I NT" I 16473H . - 


7372625250983726264432342011 


8ÜP T:ME3TERMAZ y 


PROGRAM 


IGÉNY 


K IG}^12 !■ Efl 1 I 

-HB92IQ BI7I 

*** Bl 3;5837 I 16 i"; 

- .Si,2 -—4 1"; 

SZERINT IBV44831 I " 
-■Eíi3ó251 I"; 


PRINT"I7766501 LOTTÓSZÁMOK 

PRINT"1264730'- 

PRINT"I34958377203048373654754843728376509192 I"i 

PRINT" ■- 

G0SUB362; PRINI "TiaWWI BILLENTYŰRE 'YAROP. ! 


GETA$:IFA*=""THEN252 
PaKE53280,0:P 0KE532B1,0; PR INT' 
PRINTTAB(7)"RETURN BILLENTYŰT!":PR 1 NT 
POR 1i1 Tű 10:PR INT“ :NE X T:PR INT 


MINDEN VALASZ UTÁN NYOMJA MEG A 


SZAMA 


0-99) 

" ; 1 

(1-8) 

•*! : L= 


:L=2!G0SUB386:Q=VAL(Dí > 


ŰŰSUB386:T^VAL(D*l 


1:GŰSUB386:N=VAL(D*) 


'THEN284 


PRINT"® A szelvények SZAMA (2-10) 

IFQ<20RQ 10THEN254 
PRINT"®® A LEGNAGYOBB SZÁM 
IFT Í.20ORTÍ99THEN254 
FRINT"gB A KERT TIPPEK 
IFN<10RN>8THEN254 
PRINT"C@®" 

FORS=lTOQ 
IP S:.10 THEN W=1 
IF 3=10 THEN W=0 

PRINTTAB(W)S"B-="!PRINT:NEXTS: IFVO* 

F0R1 = 1T035:VO»=VO»+"-" :NEXT1 

PR I NT " aanil " ; F0RV= l T0Q+ 1 : PR IN T " " +V0*: PR INT : NEX TV 

P0RE214,22:PR1NT:PRINT" LOTTOAJANLAT - COMMODORE 

PR IN T " gB" : Für J = 1 TOQ: PR IN T: PR 1N T 

P0R1=1T0N:A(I)=INT(T*RND(1))+l 

IF 1=1 THEN 300 

FÓR 6=1 TO I-l 

IF A(ű)=A(I) THEN 290 

NEXT 6 

NEXT I 

FORS=1TON-1;M=0 

F0RI=1TŰN-S 

IFA(I)í=A(I+l)THEN310 

X=A(n;A(n = A(I + l):A(I + lI=x : M=1 

NEXTI 

IFM=0THEN318 

NEXTS 

F'0RI = 1T0N:A*(I)=STR»(A(I) ) 

IFA(I)<10 THEN A»(I)=" "+A»(I) 

FRINTTAB(5)AÍ(I)" ";:NEXTI 
NEXTJ 

FRINT"ÍHQQ_F-1_D_F-3_B_F-5_■ EGVEB" 

FRINT" am UGYANEZ || MAS B VEGE B NYOMTÁTÁS" 

GETAÍ:IFA*=""THEN332 

I FA»=CHR*(133)THEN272 

1FA*=CHR»(134)'HEN254 

IP A* =uHtY»(l i5) I HtN GÜIÜ35^ 

GOSUB3.60:FRINT"gJYOMTATOT BEK APCSŰL TA »1 y N) (" 

GETAí: IFA»^ í " I "ANDA»', ■ "N"THEN342 
IFA*="N"THEN 6ÜSUB360:GOT0328 

GOSUB360:PRINT"^PV; . . . . HÉT:.... NE'V:. 

SVS3Ö864 

6OSUB360:G0T032e 

PRINT"n":P0KE214,8;FRINT:FRINT kJiWMI BIZTOS,' 


64 ’ 


O 





-.Bl-.'-"?' , '-.H 1 ’•; 


C 0 

M M 0 D 

ŐRE- 

64 BIE>60 11 BI2 

t", o 




-B^7o IS EI8 1" 





-.Bxi2 10 EI3 I" 


EREDETI-PRINTELŰ 

l&:23 11 BI5 1" 


• ••• 

• 

• •• 

C IB^.45 IB BI8 1" 


• • 

• 

• •• 

E IB288 IB B>2 1" 

O 


• •• 

• •• 

L IB475 IB BI3 1" 


• • 

• ••• • 

• •••• 

L IB972 IH BI7 1" 





• DIB386in Bl11" 

O 




• ű iB^Va IB Bl'* 1" 


• • 

• ••• • 

• •••• 

M IBY86 IB BI2 1" 


• • 

• 

• 

0 IB254 1® BI'Y 1" 

O 




L- iBfa^i IQ BI4 1" 



o 


o 


o 


o 


ü 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 
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354 GETA»:IFA»<Í"1"ANDA* . 'N"TriEN354 
35* IFA»="N"rHEIM254 
358 SYS5826ö:END 

360 KOR I =0 ro 1: POF E 781 . í : S t 3599t>3: NE A 1' 1: Rt I URN 

362 PR1NT"B VÁRJON'' IŰLTűM AZ ÁDAJOhAT'";:PŰhE21i,0 

364 PORI =3686',r 036957 

366 READX.POK.EI, XrrTEXr 

368 P0KE781,24:SyS59903:RETURN 

370 DArA169,4,133,186,169,126,133,184,169,0,löO,4 

372 DATA133,113,132,114,133,183,133,185,32,192,255,166 

374 DATA184,32,201,255,162,25,169,13,32,210,255,32 

376 DATA 225,255,240,46,160,0,177,113,133,103.41,63 

378 DATA6,103,36,103,16,2,9,128,112,2,9,64 

380 DATA32,210,255,200,192,40,208,230,152,24,lOl,113 

382 DATA133,Il3,144,2,230,114,202,208,205,169,13,32 

384 DATA210,255,32,204,255,169,126,76,195,255 

386 D*="":P=0 

388 POKE204,0 

390 GETA*:IFAí=""THEN390 

392 A=ASC(A*> 

394 IFL=P THENA»="":60T0398 

396 IFA: 47 ANDA :.58 THEN D*=D$+A*: P=P+1: BOTO402 

398 IF20=A AND P 0 THEN A*="B B "!D*=LEFTDs.LEN(D*1>:F=P-1:6070402 
400 A*="" 


402 GÜSUB408: IFAO13THEN390 
404 POK:E204, 1 : PR INT" " : RETURN 
406 ; 

408 POKE205,2 

410 IFPEEK (207) O0THEN410 

412 PRINT"a"A»i:RETURN 


READY. 





O 

O 

O 

O 

O 

O 

o 

o 

o 


Totózó program 

E program is a képernyőre írja az eredményt, ahonnan 
kinyomtatható. 

Bemutatkozás után a hasábok számával határozzuk meg 
a tippek mennyiségét (max.: 10). Ez alapján elkészül a fejléc, 
majd együtt dolgozunk a szerencséért a COMMOEXJRRAL. 

Mérkőzésenként megadjuk a (A/B) csapatok esélyeit %- 
bán, miután az egy mérkőzés tippjei készen vannak, újra té¬ 
rjünk át. Ha a pótmérkőzésekkel is készen vagyunk, a 102. 
sor kínálja a lehetőségeket. A nyomtató bekapcsolá.sa után a 
118 — 120. sorok felíródnak, és a képernyőt kinyomtathatjuk. 

Működésének alapclve, hogy a megadott %-ok alapján 
(azokat 10, 20, 30 stb-re kerekíti), az alapot képező (tíz ka¬ 
rakter hosszú) stringet (ES$) az El$, E2$, E3$ stringeklKÍI 
képezi a 130. sorban. Ezután a hasáboknak megfelelő 


mennyiségben 1—10 közötti értékben véletlenszámot gene¬ 
rál, és a számnak megfelelő karakter lesz a tipp, mely felke¬ 
rül a képernyőre. 

A tízre kerekítés az egy.szerűsítést szolgálja. Akár 1 %-ot 
figyelembevevő programot is készíthetünk, akkor az El$ 
(E2$, E3$)-t célszerű egy hurokkal előállítani: 

124 FORl=.lTOEA:El$=El$+"r:NEXTl 

125 FORI=lTOEB:E2$=E2$+ "2":NEXTI 

128 FÓR 1= 1TO100—(EA+EB):EX$=EX$+"X";NEXTI 

130 ES$=E1$+E2$+EX$ (és RETURN). 

Ekkor azonban a 98. sor 10 értékét is 100-ra kell változ¬ 
tatni, a kerekítéseket a 84. és a 90. sorban el kell hagyni. 

Ha nincs nyomtató, a 114—116. .sorok átalakításával 
visszatérhcíünk N(em) esetén a 100. sorba is, ha tévedé.sből 
ide kerültünk! 
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HR* . I4riCHR$ U55l : 
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= ŰT.E53281 
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PR I NT '■ 
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14 

PR 1 ITT " 
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FRÍ NT" 

I1212X1H,- 
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18 

PRI NT" 

11 1 12x111 

C ű N M 
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D 0 R E 
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■ BIX 

!'•; 


20 

PRINT' 

112 x 2 x 1 B 
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22 

PRINT" 
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PRINT" 
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PRINT" 
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EH 
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PRINT' 
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30 

PRINT" 

1 XXxi iiBi 
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BIX 1" 
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32 

PRINT" 

12211xXBI 





1R'*'. A11 pn 
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PRINT" 
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42 

PRINT' 
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o 
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46 F'RINT" I 12XX1 IJJ - 85^x2 !□ CI2 i " ; 

48 F'RlNl*'!12'l2‘Axl21j[ *** FROBRRifi gj^’;Ixlilxl Ili*'; 

50 F RI NT "11^1220.-■. C22 - 1 i' i 

52 FRINT" I n XX20I f+ T Ű T O T 1 R F £ k ++ lEJl 2x21 1 l"; 

54 PRINT" - 1 XX210'- B12X21XI"; 

56 PRINT"I112122XX121X21X2X1X211X22XlX22x11X1X2X1"; 

53 PR INT" 

60 60SUB142;F’RlNT" i«mi BILLENTrURE VÁRÓT. ' "; 

62 GE'TX*! lFX»=""THENö2 

64 PRINTCHR*(147):CLR:ROkE53280,R:PŰKE53281.7 :FŰTEö 46,7 
66 PR1NTCHR»1147) iPRlNTTABt10)"B T ü T 0 2 Ü H" :PQKE214,18:PR1NT 

68 INPUT '‘HANY masabbal JATSZUNk (2-1 O) : " ; H*: x=VAL (H») : H=VAL (H*.) 

69 1FH(20RH: 10THENPRINT"m" :GOSUB134:801068 

70 PRINT"! HASÁBOK : ";:PORI = 1TOX:PRINTTAB(13)"B" 11:NEXT1:PR 1NT 

72 F0R1=1T032;PR1NTTAB(1):NEXT1:PRINT:BOSUB134:F0RJ=1TÜ16 

74 ES*="':EA=0:EB=0:P0KE214, 17:PRINr:PRINr" aFlX l = 100 ÍJFIX 2=0 Í1H1BA=T ®1" 
76 P0KE19. 1:F’RINT"A. .CSAPAT ESELYEl (O-lOO;;): "EA" !—! ’ : : 1 NPIITF Aa; PR I NT 
78 IFEA*=’' T"THEN60SUB134: G0T074 

30 EA=VAL(EAS):IFEAcCiOREA)100THENG0SUB134:G0T074 
82 IFEA=100THENEB=0:G0T094 

84 IFEA/lOí INT (EA/ 10) THENEA=INT (EA/ 10) *10 

86 POKEIR, 1:PRINT"B. .CSAPAT ESELYEl (1-1007.): "EB " HU" ; : 1NPUTEB* 

87 1FEB$="t"THEN60SUB134:60T074 

88 EB=VAL(EB*):IFEBxOOREB: 1OOTHENPOkE781,21:3 íS59903:60T086 
90 IFEB/lOCí INT(EB/10)THENEB=1NT(EB/101*10 

92 IFEA+EB>100THEN136 

94 60SUB124:P0KE214,J:PR1NT:1FJ'.10THENPRINTTAB(1)J'B- JÁTÉK :";:60T098 
96 PRINTJ'B- JÁTÉK 

98 F0R1=1T0H:T=INT(RNB<1)*10)+1:TP*=MID*(ES*.T,1)iPRINT" "TF*;:NEXTI 

99 PRINT:60SUB134:NEXTJ 

100 P0KE214, 17:PRINT:F0RI = 1T032:PR INTTAB(1) "-";:NEXTI:PR INT:PRINT 
102 PRINT" B FI =1SMETLES B F3 =VEGE B F8=IRAS ff' 

104 SETX*:IFX*=""THEN104 
lOö [FX*=CHR*(133)THEN66 
108 IFX»=CHR*(134)THEN122 
110 IFX*=CHR*(140)THENl14 
112 B0T0104 

114 G0SUB134!PRINT"NY0MTAT0 RENDBEN (I) ?" 

116 GETX*:IFX*;/" r'THENl16 

118 GOSUB 134: PR INT "EV. HÉT;_ SORSZÁM:.“ 

120 PR1NT"CIT<EV:. (C64) " ; SYS9*4096: G0SUB134: BOTOlOO 

122 END 

124 El*="tlllllllll" 

126 E2*="2222222222‘' 


O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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,Y;SYS59903:NEXTV:RETURN 
MAX.lOO lehet '"rPRINT'g 


• (EA+EB) / 1 íi>) 


billentyűre .’APOk 


128 EX*="XXXXXXXXXX" 

130 ES*=RIGHTÍ(El*,EA/10)+RI6Hr*(E2*,EB/10)+RIBHr*(EX*.10- 
132 RETURN 

134 FÓRY=24T019STEF-1;P0KE781, 

136 FR;] NT: PRINT "ÚJAT > ÖSSZEG 
138 6ETZ*;1FZ»=""THEN138 
14íi) GŰSUB134: 60T074 

142 FÓR I=368641036957:READX:FOKÉ I,X:S=S+ X:NEX T:RE IURN 
144 DATA169,4,133,186.169,126,133,184,169.0,160.4 
146 DATA133, 113, 152, 114,133, 133, 133,185,32,192.255, loo 
148 DATA184,32,201,255,162,25,169;13,32,210.255,32 
150 DATA225,255,240,46,160,0,177,113,133,103,41,63 
152 DATA6,103,36,103,16,2,9,128,112,2,9,64,32,210,25S 
154 DATA208, 230,152,24,101,113,133,113, 144,2,230,114 
156 DATA202,208,205,lö9,13,32,210,255,32,204,255,169,126 ,Tö,195,25 


ZOO,192,40 


o 

o 

o 

o 

o 


READY. 


Egy trükk 

A Basic-nyelv használata során, adott feladat eseten, 
több variációt is alkalmazhatunk. Gondoljunk az egy billen¬ 
tyűre való várakozás megoldására! Befolyásolhatja dönté¬ 
sünket, hogy az idővel, vagy a lárolólerülcttcl gazdálkodunk, 
íme erre egy példa. 

PEEK-ek és POKE-ok a C64-escn című kiadvány gépi 
nyelvszimulátora a 8000-cs sorától tartalmaz egy HEXA¬ 


DECIMÁLIS TÁBLÁZAT-ot. Bizony elég leírni! Van más 
megoldás is! Lásd a programot. Talán egy kicsit lassabb, 
mint a READ-DATA kombináció. írjuk le a programot, 
hogy működését cllcnörizhc.ssük, egészítsük ki az alábbi so¬ 
rokkal: 

11.59 DIMH$(255) 

116.5 PR1NTH$(I), 


13 • 


NOVEMBER 


o 
























{/íM'i 





Demonstrálhatunk! Most már mehet! Bizony lassú. De 
kell ez már így nekünk? Hiszen e sorok alapján szubrutint 
írhatunk, amely az aktuális értéket mindig kiszámíthatja. 

Az értékadás tehát az előkészítés helyett a végrehajtás¬ 
ban történhet. Persze a szubrutint alkalmazó programot is 
ennek megfelelően kell átalakítani! 




EGYESÜLET 



Tisztelt Szerkesztőség! Ha érdekesnek találják a küldött 
anyagot, leközölhetik. Kérésükre a programokat kazettán is 
megküldöm. 

Mellékelten megküldöm a programok listáját! 

Mesterházy Sándor 







Tisztelt Szerkesztőség! 

A közelmúltban megvásároltam a Novotrade Rt. Lakat 
alatt védelmi módszerek C64-esre eímű kiadványát, és abból 
néhány programot leírtam. A könyv tartalma kitűnő, hóna¬ 
pokra leköti az érdeklődőt, de sajnos nem minden program¬ 
ja működik. 

Ilyen az „Új, kazettás, feliratos formátum: KMR” teljes 
programlistája. Nos, én nem foglalkozom gépi programozás¬ 
sal, de rátaláltam a hibákra, így másoknak segíthetek. 

Mellékeltem a működő program sorait és egy Basicbetöl- 
tő tervezetet. Azért választottam ezt a módszert, mert így 
biztos hibátlan! 


Nincs semmi más feladat, mint a Basicbetöltőbe beírni 
az adatokat a blokkmásolatokból. Ki kell hagyni a bekerete¬ 
zett adatokat, amelyek csak a lemezcgy.ség működését szol¬ 
gálják. A 9 db 164-cs utáni 0-kat nem kell már beírni! 

A program működésével kapcsolatos tudnivalókat, a 
program használata előtt, az említett kiadványban minden¬ 
képpen tanulmányozni kell! 

Én már tudom, a munka kifizetődik, nemcsak a magnó¬ 
tulajdonosoknak! 

Tisztelt Szerkesztőség! A mellékelt anyagokat közlésre 
küldtem. Ha Önök úgy gondolják, küldjék el a szerzőknek! 

Üdvözlettel: 

Mesterházy Sándor 
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RÉM IRTA: MESTERHÁZY - CELLDOMDLK 
RÉM HA KESZ/ELMENTVE, RÉM *-T KIVENNI 
P0KE53280,O;PDKE53281.O:PRINTCHRí(155) 

PR l NT’■ Q-AKAT ALATT-LENSYEL / VARGA-NOVOTRADE 


RT. 


PR INTI AB ( í 1) "(® 
PR 1 NTTAB(1 1>"Bl 
PRINTTABÍÍ J 
PRINTTA£iCll)"|3l 
PRlNTTABdl) ''01 


EB 


EB ET fKmr ni 
EB EIi''EfiriE]i EB 
El Eli 'V 
EBI 

El Eli El El 
EB Eli EBEI 

NE XT 


B" 

B" 

B" 


lEli 
lEH 
lEli 

igi El ’1i’':PRlNT 
PRlNTBítrPRlNT 


PR 1 NTTAB U. 1) "01 
F0RT = lTQ4tí: B9.=B*+" 

RRINT" KAZETTA MASQLABVEDELMI.RENDSZER" : PRINT 

PR1NTTAB(8)"GÉPI KDDU PROGRAM TQLTÜJE":PRINT 
PRINTBS 

P0KE:214,20; PRINT: PRINT" TÜRELMET KEREK, TÖLTÖM AZ 
PORI=491521049796 
READA: PÜK.EI, A: S=S"YA 
NE XT I 

[FS-..>B3194THENPRINT''HIBA A DATAKBAN I " ; END 
RÉM * EÍYS49152 

FQRI=10TO22;P0KE781,I:SVS59903;NEXTI;P0KE214,11:PRINT 
PRINTTAB(6)"A BETÖLTÉSSEL VEGEZTEM 
PRÍNTTAB(6)"A RENDSZER MŰKÖDŐKÉPES 
PRINT"E PROGRAMMAL SZALAGRA MENTETT 
PR IN TTAB(5)"-NEM MÁSOLHATÓ!" 

PRÍNTTAB(5)“"TURBÓSÍTOTT!" 

PRÍNTTAB(5)"-AUTOMATIKUSAN INDUL f" 

PRÍNTTAB (5) “-HAGYOMÁNYOSÁN KEZELHETŐ.' 

RÉM * CLR;NEW 
DATA 169,11,141, 


ADATOKAT 


!“:PRINT 
!PRINT 
FILE :" 
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■munkalemez 


■.ID:20 

Sector' : 

16 

13 Neüt : 




Trace off 






Address: 


128 Value: 




1 l_B- 

165 

76 239 3 

164 

164 

164 164 

- BEE) 

164 

164 164 164 

164 

nr 

0 0 


0 

0 0 0 

0 

0 

0 0 

(§(a(a(a^(c|(d(a 

0 

0 0 0 

0 

0 

0 0 

@@@@@@@@ 

0 

0 0 0 

0 

0 

0 0 

@(a@@@@@@ 

0 

0 0 0 

0 

0 

0 0 

^ @ ^ @ 

0 

0 0 0 

0 

0 

0 0 

(d@^(a<á(á(a{ö 

0 

0 0 0 

0 

0 

0 0 

@@@@@@@@ 

0 

0 0 0 

0 

0 

• 0 0 

@@@@@@@@ 

0 

0 0 0 

0 

0 

0 0 

@e@@@@@@ 

0 

0 0 0 

0 

0 

0 0 


0 

0 0 0 

0 

0 

0 0 

@@@@@@@@ 

0 

0 0 0 

0 

0 

0 0 

@ (S! ^ 0 

0 

0 0 0 

0 

0 

0 0 


0 

0 0 0 

0 

0 

0 0 


0 

0 0 0 

0 0 

0 0 


o 
o 

3 O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


NOVEMBER 































EGYESÜLET 



Tisztelt Szerkesztőség! 

Békési András vagyok, 12 éves. Már 2 éve tagja vagyok 
az egyesületnek, és sok hasznos ismeretet szereztem a lap¬ 
ból, főleg a „Tippek-trükkök” című rovatból. Ezekből a tip- 
pekből állítottam össze programomat, melyet mellékelek. A 


program a floppyt megkímélve formattál, file-t töröl és re- 
setel. Amennyiben tetszik, felajánlom másoknak is haszno¬ 
sításra! 

Üdvözlettel: 

Békési András 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


k? fKiríT-n" 

2 * C= Ü/SflG SOKSi’-ftl'P 

j o:c,.í'i f ===>üist--. EDI VÜK■-:=-= * 

4 ktn » BÉKÉSI. HHÜRhS ISSO. 04.06. ^ 

= Sít.t''i « ■* 4: .* * * '* * it. if * '* * 

Í 0 f'RlHT" íl-tFOEMRCIC <. Í .'n"'" , flT 
2Ö li'fPü'f l-lí 

::0 !.í" HJ- = ''I" THEH GŰTO 6Ű 

:jl GETRí- iE HS-—'"' l'HEH Dl 

.'32 ir Rír=CHRí <, l.3S> THEK 140 

:í.3 1F RÍ—CHRíTí. 1S4;-- THEX 14G 

J4 If 13b ;■ VHt.N S'»‘S6473« 

bb RErt lf« ÜRMHC IO 

6Ö I -P. 11 * 1"" E 1 ===:i f ŰR'.t'UVV 01 SE.." 

(■■0 PRIMV'FS ===>E ÍLE. TÖRLÉS 
Só RR.iMT'‘Fb ===>£HU 
S>0 (■•R.lN i •' ''SPROE'" 

100 PR.INT 
llO E'RlVlT 

120 GET Rí -IF t-R -.I Ml-O 120 

125 GOTO 3l 

130 REI-1 ORfirtT*** 

140 OPEH1 ^ Ó, 1. “ H-W ■' +CHR.5' < > 1 CI-lR l 2S > ■« i: 11R3- •:. 1 ;■ ■+ i:,HRS-- 15 > ' CL03E1 

141 OPENl,G.11"H = TES2T. 10“ 

142 IHPUl "R LEMEZ HEVE LEG'i'ElP ", BT 

143 CLOSE1 = OPEH1, S, 1 b, "IL " +BT = CL0^3E 1 

144 GOTO ló-RÉM *■'** PílE T0R.LESE»+« 

145 IHPÜ l "FI LE HBHE : , HT 

146 OPEH 2,8/15," SO ‘ " -tnT 

147' CLOSE 1^ GET BT-ÍF fiT="" THEH 147 
148 GOTO 10 


Rt: RÜV . 



o 

o 

o 

o 

o 

o 

o 

o 

o 


A 


Tisztelt Szerkesztőségi 

Az újságban sokszor láttam má.sok által beküldött pro- 
gamokat, ezért elhatároztam, hogy én is beküldők egyet. 

A programot főleg a fiatalabb korosztály hasznosíthatja, 
hiszen a gyerekek felnőttkori testmagasságát számolja ki. 


A programhoz szükséges adatok; 

— a jelenlegi testmagasság és egy táblázatból kinézett 
kor és nem szerinti szám. (Táblázat a programban.) 
Üdvözlettel: 

Varga Péter 



10 RÉM **!*-*******************^** 



0 

1 1 RÉM * TESTMRGflSSft 

G-SZRMITfiS 





12 RÉM * VBRGB 

PETER 

* 




13 RÉM ***♦*♦♦**»***■ 





0 

14 RÉM Ch^ 



o 


20 POKE 53230.. 3 ^ POKE 

53281>3^PRINT"B.T’ 



0 

30 PRINT TBB<9> "MfiiíftlíWSSWITESTMHGFlSSflG-SZBMITHS" 




40 PRIHT TflB<8>":i!CVERMEKK0RI 

RDRTOKBOL" 


o 


50 POR fl=l TO 3000 HEXT R 




0 

60 PR I NT " tn" : POKE 532S0.. 0 ^ POKE 

53231,0 




70 prThttrb': i3 :>"trblrzrt" 



o 


30 PRINTTflB<5>":«F'0R 

FIÚ 

LRNV" 



0 

90 PRIHTTRBke 

72.0 

77.5" 


o 


100 PRINTTflB';6>"9 

75.0 

30.7" 




110 PRIHTTfiB<5>"ie 

73.0 

34.4 " 




120 PRINTTflBk5>"11 

31.1 

38. 4" 


o 


130 PRINTTRB<5>"12 

34.2 

92 : 9 " 



0 

140 PRINTTRB<5>"13 

fi7« 

96- 5" 




150 PRIHTTRB<5.>"14 

91.5 

93. 3" 


o 


160 PRINTTRBk5>"15 

9e. 1 

99- 1 " 



0 

170 PRIHTTRB‘;5.'>"16 

98- 3 

99 . 6 " 


C\ 


1.90 F^RINTTRB<55"17 

99. 3 

100 .0" 



0 

190 PRINTTRB<5:)''1S 

99 - 8 

10!3-0" 



200 PRINTTRB < 5 >"19 

100.0 

100 . 0 " 


o 


210 PRINT" - 





0 

220 INPUT"li*HRNV CM 

R MOSTRNI 

■IRGRSSRGOD " fl ^ IF P 

<:.100 OR !=I>210THEH 63 



^5 NOVEMBER 
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Tisztelt Szerkesztőség! 

újabb programom címe „ríémet gyakorló”. A program 
német és magyar szópárokat tartalmaz. A főmenüből vá¬ 
lasztható, hogy a magyar vagy a német szavakra akarunk 
válaszolni a megfelelő fordítás beírásával. Az F7 billentyű 
lenyomása után kiírá.sra kerülnek a szükséges információk 
és tájékoztatás a bővítési lehetőségekről. Itt két választási 
lehetőség van! 

’F’: vissza a főmenübe, 

T’; a tárban lévő szópárok kiíratása a képernyőre. 


A program számolja a feltett kérdéseket, a jó és a téves 
válaszokat. Az eredményt százalékos formában is értékeli. 
Hibás válasz esetén a H betű lenyomására kiírásra kerül a 
helyes válasz. 

A program jelenleg 120 próbát tartalmaz, ami azonban 
tetszőlegesen bővíthető és változtatható. (A DATA sorok 
bővítésével és a 9. sorban az X érték azonos növelésével.) 

Megfelelő karakterkészlet-program alkalmazásával a 
program még hasznosabbá és más nyelvekre is alkalmassá 
tehető. 

Tisztelettel: Haraszti Árpád 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1 tí£''l t ^ ♦ 

2 h'EM C=UJSRíi li'í'l yy-i' » 

3 REl’l , - • 

4 RErt * MEMt! MVEuVl !jS'fHI-:.UEEÜ ♦ 

■5 Rf.n ♦ , , » 

6 K'E'M » i Ht-'PHiJ 

Z K'.Efl 

9 X=l20Mj0SiJE!2Se)Ü 

lö r-Ot;.E‘532SO, O ■■ P0t:.E5:j2tí i . O ' EK' iru "Lfa" íTiEh. í 'J .i •M'.l t II _ . . " ' Sí-T- " " ‘ 1-4' =4 

15 PRl.HTTlrlB<;i4>" + .'-.-t-r-iU t'.. i I IR=ö 

28 PftlNTTRlJi. ■■ I I I lU l '-1 '■ 

2t PRlNTTfiBC 12>"n-■■ 

25 PP.I.HT"W.n»W a(- IS O- .vi:,l'. IRUt'l rt MEHET yZOT, ME^.E,D>»i»»H»»l»0>:i'l l'lHOVlTP'. HEij" , 

30 PRIMT‘'FELELOJEl KELL BEÍPMOO" 

32 PR 1HT " ;i>*«ai''31 .;S- üf- « ELŰZŐ C ŰPD 1 Vi3T V .1^1“ 

37 PP'.1MI'"R»I=|- 3I-í S O :>l TPlRBHH LEVŐ SZÖVÖK ia> a! mPOPI'HT - f««ail., 10" 

48 PPIMT" WJSUUji'!" > ÖB<.28;' "PPOGPÖH ■ ITHrtPriSZTl MBKIMPpiTün!" 

42 PR IMT rriB <■. 23 ;■ “ lU. ■*.. «!> = ai OO1. 1V. " 

43 RÜ4.= "*|i|»|i*»»l»iii»»»»»ÍitPti|««" 

44 GETC* 

45 1 FT:.r = " «" THEHF =8 ■ ŰŰTO18888 
50 i;FCÍ='‘S"THEMr=3 ^ Ű0T088 

68 IFCí = “ il" THEMF F =8 ’ üDT02888 
62 ÜijT044 

80 PRIMT":» MÖCYRPUL' MEHETŰL^" 

81 GOTO148 

82 G0T02V38 

85 PRIMT"MRU!MlW"TÖBt 15>‘' " ■ PR. 1M ( " íli!»Ull'l!«IJ>IJ!iriU'.ÜSl«" MM3R.I=LT018 

86 PRIHT" "=MEX!1 

87 IF TJ=2THEM;.J=8'-F’RlMT".iyj'.UUJMHWl " • GO 10288 

88 UIJír = "" M3=imf;X*RHD<,l,';' + l-:RESTUPE □=0+l ' IFTJ= 10R0=51 HEMIJU?-"Z" 

90 FíESTFJRE ■ F GR 1 = 1 VOO 

95 RE»3l3t3:F, BT-■ ME:4T I : 1FF=3TFIEMF T=BT ■ 64=0^ M'-|íf-=Pi- IFLES TTCBt , 2',' = " "THEM00SUF32888Ű 
180 PRlIMT"0li«lfl '• M'‘RlMT''9»IHia"F!T M30yuB185 = 60T0118 

185 PF!;lMT"flíRIW>«.i«Bl«*WBt.Z Fl"OUar-; Ü"»l. >3Z0 " 

186 lFFF=4 rMEMFF=8 = PR.ÍMT"'. t-OBlG SZOT F.ERDEZ FÉM VŰLED I “ 

187 IF0=1 VHEMF‘'R1MT":'E.Z FVIJOT, Ű"»Ii. SZU " 

188 PRIHT "Síeddigi jo vheoszöiü szöhö ^ 

189 PftIHT"«tÜÜIGl ROSSZ VÖLÖS2Ö1Ü SZHMfl "O RETUFÍM 

118 PRÍHT"i5liHWa"ROT" StMMMIiatlS’SlaiWMgilltMaMS" , : impotrt 

120 IFR.t-=BTTHEMPRlMT"«"TÖB<. 16 .'“.huiii«LW3BHF_LVEs IS" 3=-J+l 
130 I FRtOBTTöEHPR: I HT " 91" 1 ÖB '.15;- " WÍWWSÍittl Z HEH .30 I S“ ■- R=2 ’ 0=0+ 1 
140 IFD=0THEHGOTÜ82 

142 PR.IHT"'9Ö!Wüill«llIMIE.ZF!ZfiLEK0Ü ■ l•••*^S«ll" 1MT(. 3Z<:0.-’188> " M" mjOSOB 185 • 00X082 

200 pR.iHT"9tóaiwiJi!jiiwniiiiwRi>imi*uimi3r*^^ OHfciHü •- -f-'S" 

210 IFÜO>8THENPRlHT"'i3alE:DUlGl EREDMENV HULLFlZÖS ^ - H- S" 

228 PR.IHT"!;3I1HF0RHÖC10 : ■'1' B" 

225 PRIHT" aSd OVÖBB : 'T'B" aFD'C>8ÖHDF=4 I'HEMGOSOBIOS 

238 IFR=2TFlEHPR.IHT"9»«»lBUlWI)toWWJÍlW)aRi«l*Wl^ HELYES VFILFTSZ 'H B" 

250 ŰETOT '- IFOT="F"THEH10 
255 IFO* = " T " rHEHR.=8 ^ G0TO85 

260 lFDI-="N"RH0ÜC>8rHEM.J =0 '■ R=8 ■ 0=8 ^ 0=8 ^ G0T045 
265 IF 0T="I"THEH2800 

267 lFOT="M"t3HUR=2THEHR=0 ;pP.lMT"9W«imtRm(WWW*UMf,IW=»i HELYES VfTLFiSZ ^ "BT ■ .3-3=2 H30T0P7 
270 G0T0258 

2888 F'R.IHT":'K sa IHFORMPiCtO ■ B" 

2010 PP.lHT"imiW FIFl R TRR.BRH LEVŐ "X"SZO HEH ELEO.RI" 

2028 PRIHT"VROY .SOK., RK.K.OR Fi F’ROGRRH 9. SORRBl-HHKI" 

2838 F'P.tHT“RZ 'X' - El FlHHYlVRL BOVllSB, VROVW" 

2848 PRIHT"Ci30K;K.EHTS0, MIhT RMEHHYIVEL TÖBB VFlO'i'.K!" 

2858 PR. IM F "KEVESEBB SZOT RK.flR.SZ. «" 

2868 F''R.lMI""a HR TÖBB SZOT RK.RR.sZ, RK.K.OR RW" 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


2070 l-'tí INT "2000. •iüR'i'ÜL t;t.ZQ0UUt(t ÜHTfl yOR.iJUBHHW 
2000 PRIMT"R SZOFíiRÜi'.lHl rtNH'i'i. YííL tíÜVlVSÜ/ niNTRI" 

20y0 PRIHT"HMI:HNV1VBL. f l2 - X- - t f BOV rVE ! TEO !“ 

2100 PR I RT VTlB <■. 2S " SÜSS- IrtRPtíZT 1 l■■^R.P^•ÍÜ " 

2110 PRIUT"lk..arfiR.BHH LEV0 ■■ l ' S" 

2120 PRlNT"r.1S«' Ci-!flMU * S" 

'2j.:-i0 üETCS:- lFCí' = "P“THtNl0 
2140 1. f- C *=" " T '• THb.R2200 
2150 QOTO2130 

2200 PRIMT" ,Tat.:;P:K.BOL H BZRVHH.BOL VRLOOfiTŰK ■ :B" ■ X!f="trí" 02BBTORE '- 1 = 1 
2210 HFI=0:FOR.i = ITü;>í 

2220 IFRPI=40TH£HPP'.11U'".iWalWTOVRBt: ' T' " ','=3 X* = "Trj" ■ CÜT02:400 

2221 IFRP,=20THeHX*=WW'r ^ l'P:lR i "Í>J" 

2222 REPlOflíT, Bt-' RM=FlfH 1 

2225 PR. IHT X4-; " «r- r,T‘ B4 

2230 HEXTI 

2400 PRTia"SBÍUS«lR«flRlJ«R0«RlWíMl«««3S^ ' F''" 

2410 PP.IHT"!5SllHF0R.t'lRC10^ ' l'S", 

2420 GETCsr-' IFCÍ = "F"THEH10 

2425 lFCí = "T"RHDY=3THeNV=0^PRI.NT"2l" ’XÍ="Ü5" ' PIB=0 ^ eOTO2210 
2427 IFC4 = ''I"THEH2000 
2430 GOTO2420 

2500 IFX<=0TMEKPR.IMT":"í l S'-ES SOP.BRH fi2 X ÉRTÉKÉ KÉVÉS STOP 

2510 PRIHT'‘na|'..IS TÜRELMET! --SJ HM rt PROGR.HM HIBHT JE-" ■ WWaF="»*lli*»***»»***M>***»Íir 
2515 PRIHT"LEZ, fiZERT VHH MEK'.T B 9--ES SOP'.BRM RZ X ÉRTÉKÉ TÖBB/ MIMT TRR.BRH"; 
2520 PRIHT" R SZÓ ' FOP'.l = l TOX'• R.ERURT-, B4 • NEXTI ‘ 7=0 ' R=0 ■ 0=0 R3=0 > RETURH 
3000 DRTRE BR.ILLE/SZEMŰVE:G, •' ÜRNKE" .■ KOSZOHOM, S SUBFRCH/F lOK/E KRHHE/KfiUHR 
3005 ORTRS MESSEP:/ !iES / S 'RRÜlO / RRÜlO/Pl SCHRRMK /SZEKREMV / "P: HRSE" / HS'UL/ R ICOP'.B 
3010 ORTRKOSRR / R MRMTEL / líHBRT / " LESEM " / OLVflSN 1 , £ FRRU / RSSZOMY, R MFlMM, FÉRJ 
3015 ORTRS HFHUS,HRZ/R GRRTEN/KERT / S 2ELT , SFlTOPl/ R. VRTER/ RF‘'FR S BRD, FÜRDŐ 
3020 DRTHR HUMD/KUTYR/" FFlUL"/LUSTR 

3025 DRTRE FFIMILIE, CSfILRÜ, S BETT/RGY/" WO",HOL,S STROION, STRDIOM, R SCRIMPEM 
3030 DRTRSOMKR/R SCHRL / SFIL, R REI.S/RIZS/E ZITROME, CITROM, R TEIG,TES2TR 
3035 DRTRE MUTZE/SRPKR, £ VFlSCHE, VRSP.Fl/R TEE, T£R,£ TOR.TE, TŰRTR, R KRFFE,KRVE 
3040 DRTHR FULLOVER/ PULOVt:R- E HŐSE/ HRURRG/ E BLUSE/BLUZ," SUCHEM“ , P'.ERESMI 
3050 OFlTfl" ELF",!!/" VIEP'.ZEHH" , 14/" 2WEI‘'/2/" DREl'‘/3/" SlEBEN"/? 

3055 ORTfi" EIM"/!/" HUF!DERT" / 100/" FIOLEM “ / HOZMI / S LICHT / F'EMY / " SUCHEH" 

30*50 DRTRKERESMl/R KELLER / P ÍMCE/" WRRTEH" / VRR.HI / "E KRTZE" , MRCSKR / " FERTIG" 
3065 ORTRKESZ/" HIER"/1TT/R FISCH/HHL/'' WIE BITTÉ"/TESSEK/" HCH SO"/VRGY ÚGY 
3070 ÜRTR" MIJPV / CSRK/" ZEIGEM" / t'IEGMUTRTMl / E ZRHMPFlSTE/ FOGP.P’.Et'l/ " MOHER'." 

3075 DHTRHOHHRN/E MUSIK/ZEHE/" SPR.ECHEH" / BESZELMI / R H IKOLFlUS / MIKULRS/S KIMO 
3080 DFlTROYEREK/E SCHUHE/CIPÓ/" P.LEIH" / KICSI / " ZU" / TOLSRGOSRH/" PUTZEM" 

30SS ORTFÍF'UCOLHI/" ReER",OE/" VORHER." / ELŐTTE/" FEIH" / FIMÜMRM/" OEHKEM" 

3090 ORTRGOMÜÚLMl/" DfIMN"/RZTRN/R ZETTEL/CEDULR/" SCHRUEH"/MEZNI/" HIM"/OOfi 
3100 DRTR" TUT"/TESZ/E PUPPE/BRBR," OIR"/MEKEO/" SCHREIBEU"/IRMI 
3110 DRTRE OR.RMOE/HRRRMCS/E BRMBME / BRMHM/ E BIR'.ME/P.OP'.TE / E TP.flUBE / SZÓLÓ 
3120 DRTRE. KIR.SCHE/CSEP'.ESZHVE/" MRCHEH" / CSIMRLHI / " MRLEH" / FESTENI / S REH 
3130 0flTRS2RR'.VHS / " SITZEH" / ÜLNI / " SCHMIMMEN" / ÚSZNI / " KOCHEN" / FŐZNI 
3140 DRTRR BRIEF/LEVEL/S RÉZÉRT/RECEPT/E NHCHT/E.JSZHKR/R EHGEL/RNGYRL/E GEBUREN 
3150 DRTflS2ULETNI/R PFRU/PRVfl/S MRÜCHEH/KI3LRNY/R. RFFE/MFILVGM/E ELEFRNT/ELEFRNT 
3160 ORTRS EIMRR/VÖDÖR/S ZIMME-R/SZOBR 

3175 DRTRR GOTT/ISTEN/" IMMER"/MINDIG/R. KOCH/SZRKflCS/" JET2T"/MOST 

3180 DRTR" BLRU"/P.EK/R MONTRG/HÉTFŐ/R. OIENSTRG/KEDD / R MITTWOCH / SZEROR, R FREITRC 

3185 ORTFIPEHTEK/R SRMSTRG/SZOMBAT/R SONNTRG/VRSRRNRP 

3190 DflTRS JRHR/EV/R. MONFiT / HONfiP / E MOCHE/HET/R WINTER/ TEL/R SOMMER / NYRR / R J FiGER 
3200 DRTRVRDRSZ/R. BRCKER/PEK 

10000 PRINT" '.Til NEMETUL - MRGYRBlUL ’ " GOTOSl 

20000 BT=MIDí<.Bt/3/ CLENTBÍO > > * F=3 ' RETUR.N 


REFIDY. 


O 


O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Tisztelt Szerkesztőség! 1 zzs 

Elkészítettem a C-újság 88/6. számában megjelent 102. 
számú Szótárprogram ékezetes, és beszélő változatát. 

A mellékelt lemezen lévő programok leírá.sa: 

1. Szótárbetöltő 

Ez a program ékezetesíti a karakterkészletet és hangzó 
billentyűket hoz létre a C-’ 87/3 053. sz. program felhasz¬ 
nálásával, majd mangnóról vagy lemezről betölti és elindítja 
a kívánt programot. 

Magnó használata esetén érdemes az adott szótárprog¬ 
ram elé felvenni a 60—90 sorokat törölve, a 100-as sor ele¬ 
jét p=.l vagy p-2-re javítva a 70—80 soroknak megfelelően. 

A Szótárbetöltő lefuttatása után a további szótárprogra¬ 
mok már ékezetesen írhatók, a GOSUB 7000-rel — a kcszö- 
lő programba átmentve — mindig látható az ékezetes ABC 
billentyűkiosztása. 

A karakterkészlet a magyar és német kis és nagy, a fran¬ 
cia kis ékezetes betűket, és a „nyomj meg egy billentyűt!” 
jelet tartalmazza. A hangos billentyűzet megkönnyíti az 
írást az olyan gépeken, amelyen egy-egy billentyű lenyomá¬ 
sára nem szívesen reagálnak. 


2. Ékezetes szótár 

Az eredeti Szótárazó menüjét csupán egy tevékenységgel 
bővítettem, a szókerescsscl, amit a program 3000—3300 .so¬ 
rai tartalmaznak. A keresést szótöredék alapján is viszony¬ 
lag gyorsan végrehajtja. 

Működc.sbcli változás az, hogy a többjclcntésű szavakat 
egy sorba kell írni j-vcl elválasztva szóköz nélkül. Bármelyik 
jelentést helyes válasznak fogadja el, és megadja a többi je¬ 
lentését is. Az eredeti megoldásnál kb. 100 szópár fölött már 
nagyon lelassul a tanulás ritmusa. 

Az adatbevitelnél a C-195. sz. Új optinput rutint alkal¬ 
maztam, kicsit átalakítva (list 8000 — az eredetivel egyező¬ 
en). A régi programré.szek sorszámát nem változtattam meg, 
de egyes sorok változtak. Az eredeti Szótározó kimentett 
szóállomány-file-jai minden gond nélkül betölthetöek, és a 
javítás funkcióval könnyen ekezetesíthetőek ebben a prog¬ 
ramban. Szöveg beírásakor mindig látható a képernyőn a bil- 
Icntyűzetkiosztás. 

Az ékezetes betűk csak a rendezésnél okoznak gondot. 
Ha valaki ragaszkodik az ékezetes karaktereket használó 
nyelv szerinti rendezéshez, az írja meg annak a nyelvnek a 
szavait ékezetek nélkül és rendezés után ékezetesítse. 

A szópárok kinyomtatásával azért nem foglalkoztam, 
mert nem tudom ékezetesíteni a printer karakterkészletét. 
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3. Beszélő szótár 

Ezt a programot jórészt az Ékezetes szótárból ollóztam 
ki, csupán a betöltés, a tanulás és a listázás menüpontokat 
hagytam meg, de a SPEECH SAY (+/4) beszélóprogram se¬ 
gítségével ki is mondja az angol sziivakat. 

Használata előtt be kell tölteni, és le kell futtatni előbb 
a SPEECH SAY-t, majd a Szótárbetöltőt. (Lista íratása előtt 
is!) 

4. Karakter DOOO-BA 

Az ékezetes betűket a C-87/4—055 sz. karaktertervező- 
vel készítettem, de ahhoz, hogy a karakterkészlet a DOOO — 
D7FF címeken helyezkedjen cl, kisebb változtatásokra volt 
szükség. A megváltozott sorokat tartalmazza ez a fiié. 



a) POKE 2040, 128: SCNCLR; írd a bal felső sarokba 
(HOME) a karaktert. 

b) <CRSR le> után <Fl>-re megkapod a karakter hexa 
tárcímét. 

c) mO >[tárcíml: x után vidd a kurzort a > jelre és <F2> 
után írj egy Basic-sorszámot a dA elé. Összefüggő tárterület 
esetén ez folyamatosan mehet pl. egy autó 200, 10 után. A 
KEY kimentve monitorból akkor is betölthető, ha program 
van a tárban. Kimentés; mO: s’>datakey 55f 5e7’,8,55f,5e7 

U.i.: szívesen látnék pl. a C-új.ságban egy olyan hangos 
billentyűzetprogramot, amelyik a 3-Plusz-l ékezetes .szöveg- 
szerkesztővel is működik! 

Jó tanulást: Bagdács Lajos 


5. Data.sító +/4 A program túl hosszú, ezért nem közöljük. 

Ezzel a programmal a módosított karakterkészlet Basic- A pötyögöszolgálattól megrendelhető, 
betöltőjéhez könnyen Data sorokba menthetők a tárból az. 
adatok: 


Tisztelt Szerkesztőség! 

A mellékelt program a C16 és a C PLUS/4 nagyfelbon¬ 
tású képernyő tartalmát kétszeres méretben nyomtatja ki 
MPS 801 vagy MPS 803 típusú nyomtatón. Hit)ája csupán 
annyi, hogy nagyon lassú, ezért alkalmas fordítóprogram 
birtokában célszerű lefordítás után futtatni. 

lllu.sz.trációként egy ismert intcrfcrcnciamintáról (1. pl. 
Képes János; Mikroszámítógépcs grafika c. könyvének 44. 
oldalán) készült nyomtatást mutatok be. Az ezt produkáló 
program listáját szintén mellékelem. 

Pál Llszló 


O 

1 RÉM i4í*#^^*:*»í«^^'^**^**‘«********í**^»»*»4: 

£ RÉM * IMTEREEREMCIR ♦ 

3 REt'l + + 

04 ’ 

" 5 GR.ftPHIC 1,1 


6 B33;>< 1,0,0/318,188 

O 

7 FÓR X=0 TO 318 STEP 3 

3 DRRW 1,;>;,0 TO 160,100 

8 DRRM 1,:>Í,188 TO 160,100 

10 he;><t 

11 Ft3R. v=0 TO 188 STEP 3 

12 ÜRRW 1,0,V TO 160,100 

13 ORRÚ 1,318;V TO 160,100 

14 ne:';t 


O 


o 

RERD'r'. 

o 


o 




o 

o 

o 

o 


6Ö000 RÉM ♦iK^*;*H«*i***#^t**^'t:**^(i*»*ifi*^**i4i*^ 

60010 RÉM « '* 

60020 RÉM * Hl-RÉS HRRÍJCÜRV K.E''TSZERES 
60030 REt'( .♦ ME -R.E I BEM * 

60040 RÉM ■* C 16,PUJS.''4 -> MPS 601.-'S03 * 
60000 R.Et'l ♦ 

60060 RÉM * PR-L L. iBSl. * 

60070 RÉM 
60080 

60080 OPEH 1,4^ PR IHT CHRíT-<8^ ;k= 326 
601300 F83R 1 = 1 Ti3 46 

60110 ;>;=x-7 ^ R5r=" “ • rií—" “ • B 4 '=" " > 6iír="" 
60120 F3jR V=0 TiJ 188 
60130 R=0:B=0• 


O 

O 

O 
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Tisztelt Szerkesztőség! 

Mindig nagy örömmel és kíváncsisággal lapozgatom az 
Önök újságját, s most azzal a kéréssel fordulok Önökhöz, 
hogy ugyan terjedelmes, de hasznos programot közölni szí¬ 
veskedjenek. 

A program PLUS/4 gépre gépi kódban íródott, a C64-re 
írt Fiié examiner c. program átírása. A program a lemezegy¬ 
séggel rendelkezők számára nyújt segítséget. A program se¬ 
gítségével elemezhetjük a lemezen lévő programjainkat 
anélkül, hogy a tárba betöltenénk. Használatáról MENÜ tá¬ 
jékoztat bennünket. 

Betöltés után a program runnal indul. Első lépésben lehet 
dircctoryt kérnünk az aktuális lemezről, ha a megjelenő $ 
karakterre returnt nyomunk. Ha tudjuk, melyik programot 
kívánjuk kilistázni, akkor be kell írnunk a program nevét 
(természetesen használhatjuk a * karaktert is, ha nem tud¬ 
juk pontosan végig a nevet!) Ezután választanunk kell, hogy 
milyen programtípust kívánunk kilistázni. Ez lehet program- 
file, szekvenciális fiié és user füe. A választás a megfelelő 
billentyű Ienyomá.sával történik. Ezután kell választanunk. 


hogy Basic-programot, vagy gépi kódú programot óhajtunk 
elemezni. 

Ha Basic-programot választottunk, úgy néhány másod¬ 
perc múltán megjelenik a program startcíme, majd a szoká¬ 
sos Basic LIST-át adja. A listázás képernyőnként történik, 
egy billentyű leütésével újabb képernyőt kapunk. A gépi kó¬ 
dú program tárhelyeit hexadecimálisán írja ki a program, 
mellette jelennek meg a gépi kódú utasítások, s végül mind¬ 
ezt láthatjuk karakteresen is. 

Kérem szíves visszajelzésüket arról, hogy van-e lehető¬ 
ség további gépi kódú C64-es felhasználói programok átírá¬ 
sára, s annak közlésére. 

Mellékelten küldöm egy lemezen a program hagyomá¬ 
nyos DATA sorokban való leírá.sát, valamint ASSEMBLER 
formában megjegyzésekkel, mellyel a program tetszőleges 
memóriahelyre másolható, valamint a lemezen található a 
program gépi kódú formában. 

Remélem tudok segíteni azoknak, akik programjaik „lel¬ 
kére” is kíváncsiak. 

Tisztelettel: 

Nagy Attila 


O 2 RÉM i*»»***»»iK*»***^*»H(**!***«***ít(i*-t! 


RÉM 
4 RÉM 
O 5 RÉM 
6 RÉM 


O Sí 


O 




* FI LE Et’ÍRMINER PROGRfiM 

♦ 

♦ BV HFIGV RTTILH l'39l ♦ 

RÉM ♦♦**»**»**»**«**^^í<!»**^*»*^*»* 

10 OHTR 0B,10,0R,00,9E/34,31,30/0158 
20 ORTR 39,00,00,00,20,86,08,20,0100 
30 ORTR 6E,11,R9,30,R0,14,20,88,0201 
40 ORTR 90,20,07,13,20,07,13,R9,0320 
50 ORTR 75,R0,14,20,88,90,R0,00,0301 
O 60 ORTR 20,CF,FF,99,92,18,08,09,0402 
70 ORTR 0O,O0,F5,8C,9l,18,OE,91,0466 
80 ORTR 18,RO,92,18,O9,24,O0,03,032F 
90 ORTR 40,01,13,09,5F,O0,03,40,0377 
100 ORTR 08,87,20,07,13,R9,8F,R0,035F 
110 ORTR 14,20,88,90,18,20,00,EB,0340 
120 ORTR F0,FR,O9,31,O0,05,R9,50,04B2 
O 130 ORTR 40,73,10,09,32,00,05,R9,0348 
140 OHTR 53,40,73,10,09,33,00,E4,0302 
150 ORTR R9,55,80,CE,15,R9,0B,R0,0302 
rs 160 ORTR 15,20,88,90,20,00, EB, F'0,0425 
^ 170 ORTR FB,O9,42,O0,0E,RO,OE, 15,v3474 
180 ORTh 20,OE,10,R9,17,80,06,15,0336 O 
190 ORTR 4C,F5,12,C9,4O,O0,0E,RD,03F4 
200 ORTR CE,15,20,OE,10,R9,18,80,033F 


O 


O 


O 


O 


O í:0( 


210 ORTR CB,15,4C,R8,11,09,48,00,0304 o 
220 ORTR 03,RO,CE,15,20,ÜE,10,R9,041R 
0230 ORTR 18,80,06,15,40,68,10,20,0269 
240 ORTR RÍ, 13,20,RF, 13,R5,90,F‘0,03BB 


O 


250 ORTR 03,40,80,13,20,93,11,09,0276 O 
280 ORTR 0O,F0,00,09,20,90,06,09,0358 
270 ORTR 80,90,04,09,H0,90,03,20,0330 
280 ORTR 02,FF,40,68,10,80,OE,15,0455 O 


o 

290 

06 ! H 

20 


3010 

ORTR 

99 


310 

ÜF1T6 

08 

o 

320 

ORTR 

18 

330 

ORTR 

88 


340 

ORTR 

20 


350 

ORTR 

88 

o 

380 

ORTR 

90 


370 

ORTR 

18 


380 

ORTR 

60 


3S'0 

OFITR 

BR 

o 

400 

ORTR 

RR 

\_z 

410 

ORTR 

18 


420 

ORTR 

00 

o 

430 

ORTR 

00 

440 

ORTR 

OF 


450 

ORTR 

F2 


460 

ORTR 

08 

o 

470 

ORTR 

M9 

480 

ORTR 

03 


490 

ORTR 

FlR 


500 

ORTR 

29 

o 

510 

ORTR 

FF 


520 

ORTR 

FF 


530 

ORTR 

RO 

o 

540 

ORTR 

20 

550 

ORTR 

85 


560 

ORTR 

18 

o 

570 

ORTR 

11 

580 

ORTR 

20 


590 

ORTR 

20 


800 

ORTR 

E3 

o 

610 

ORTR 

02 

620 

ORTR 

85 


,8E,11,RC,91, 
,92,18,08,08, 
,R9,52,99,92, 
,R9,00,08,99, 
,88,RÜ,0E,15, 
,86,08,R9,9R, 
, 90, R9,92, R0, 
,20,00,13,fl9, 
,R9,02,R0,15, 
,FF,R9,0F,R8, 
,F F,20,00,F F, 
,R8,20,66,FF, 
,RD,91,18,20, 
,FF,R2,0F,20, 
,85,90,R4,90, 
,FF,20,02,FF, 
, 20 , OO , F F , 20 , 
,20,08,FF,80, 
,08,20,03,FF, 
,FF,80,48,4fi, 
,60,D0,15,20, 
,0F,RR,60,D0, 
,80,R9,00,85, 
,8D,0E,15,R5, 
,0E,15,80,40, 
,93,11,85,06, 
,00,20,RÍv 13, 
,20,02,12,R5, 
,65,06,20,70, 
, 02, FF , .R9,20, 
,93,11,85,00, 
,12,20,70,11, 
, £8, OO , R8,00, 
,OR,F0,38,R9, 


18,R9,20,0209 
99,92,18,0418 
18,80,91,0423 
92,18,88,0354 
99,92,18,03E3 
R0,15,20,0396 
18,20,88,0363 
00,85,90,0340 
R2,00,20,03O’8 
R2,08,20,03E6 
18,69,08,0481 
R2,92,R0,04FF 
60,F F,20,038R 
C6,FF,R9,04FE 
00,06,20,0343 
09,00,00,0585 
07,13,R2,0479 
20,00,FF,0438 
69,0F,20,0386 
46,46,46,0392 
02,FF,88,0465 
15,20,02,0378 
90,20,CF,0400 
90,00,04,0478 
80,13,18,02F3 
20,93,11,02E8 
20, RF', 13, £i317 
00,20,70,0339 
11,69,20,0307 
20,02,FF,0466 
H0,00,20,02E8 
E8,06,00,0433 
60,E5,18,04FF 
20,20,02,0440 


O 

O 

O 

O 

O 

O 

o 

o 

o 

o 


O november ~ 20 


















o 63Ö OftT ft FF / 20 , 93 , 11 , S5 , 
S40 DRTR 20/E3,12,20,?C/ 
650 DRTR O0..02/£6/DC/R5/ 
„ 660 DRTR 90,18,R9,20,20, 

670 DRTR 93, 11 ,S5,0F ,R0, 
680 DRTR 12,20,7C,11,E6, 
690 DRTR E6,DC,18,fi6,CD, 
o T’ÖÖ DRTR F0, FF , R4, DD, B9, 
710 DRTR R2,03,e9,E5,17, 
720 Dfl TR C 8, CR, D0, F'6, R9, 
^ 730 DRTR FF,R4,DR,F0,61, 
^ 740 ÜRTFl 72, i.;0,06,90,09, 
750 DRTR 05,89,28,20,02, 
760 DRTR O0,05,R9,23,20, 
O 7701 DRTR 08,90,05,R5,DF, 
(’80 DRTR R5, DE, 20,7C ,11, 
790 DRTFl 08,C0,06,F0,04, 
800 DRTR 0R, R9,2C, 20, D2, 
^ 810 DRTR 20,02,FF,00,06, 
820 DRTR 09,80,05,R9,29, 
830 DRTR Cv3,05 , F Cl, 08, C0, 
O 340 DRTR C0,0R,O0,0fl,R9, 
850 DRTR FF, R9 , 59 , 20 , 02 , 
860 DRTR Cü,R0,lE,20,F0, 
870 DRTR R0,15,20,88,90, 
880 DRTR 40,8 3, 11, R5, ÜE, 
890 DRTR 0B,85,DE,R5;D0, 
900 DRTR DF,28,10,97,06, 
O 310 DRTFl 92, Fl2,03 , R0,00, 
920 DRTR R9,2E,99,E0,15, 
930 DFlTFl F 9,60,48,09,20, 
Pl 940 ÜFRR 80,90,04,09, R0, 
^ 950 DRTR 80,15,601,60,18/ 
960 DRTR 85■08,20,93,11, 
970 DRTR R9,130, 15,20,88, 
O 380 DRTR R5,00,20, 5F ,R4, 
990 DRTR R9,00,85, CB ,20. 
1000 DRTR 93,11,20,93,11 
P 1010 DRT FI 6Fl, 20, FI 1 , 10i, 20 
^ 1020 DRTFl 93,11,85,08,20 
1030 DFlTFl DC,FI6,D8,H5,D0 
1040 ÜR TR R9,20,20,Ü2,FF 
O 1850 DRTFl 09,00,00,03,40 
1060 DRTR 24,09,FF,F0,20 
1070 ÜFITR 10,38,E9,7F ,RR 
1080 DRTR F0,08,08,89,8E 
1090 OFITII 30,F5,O8,B9,8E 
1100 DRTR 20,D2,FF,00,F5 
1110 DRTR 09,22,00,06,R5 
O 1120 DRTR 85,Oe,40,3E,13 
1130 DRTR 40,3E,13,29,7F 
1140 DRTR 40,3E,13,20,07 
p 1150 DRTR R0,15,20,88,90 
1160 DRTR 20,00,EB,F0,FB 
1170 DRT FI 20, E1, F F , D0,08 
1180 DRTR 6E,11,40,00,10 
O 1 190 DFITR CD, CD, CB ,15,08 
1200 DRTR 20,ÜO,EB,F0,FR 
1210 DRTR 18,R9,00,85/EF 
p 1220 DRTR 20,02,FF,R9,00 
1230 DR T FI 20,88/ D8, R9,00 
1240 DRTh OR , 85, RF , Fl9 > 15 
1250 DRTR 01,85,RB,R9,08 
O 1260 DRTR 60,85,HÜ,20,05 
1270 DRTR 20,B4,FF,R5,RD 
1280 DRTR R4,90, D0, :3R, R0 
p 1290 DRTR 15,20,R5,FF,RE 
^ 1300 DRTR CF,15,R4,90,DO 
1310 DRTR 15,88,Ü0,ER,RO 
1320 DRTR 5F,R4,R9,20,20 
O 1330 DFITR Fl5,FF ,R6,90,D0 
1340 DRTR 06,20,02,FF,40 
1350 DRTR 00,13,R0,04,Ü0 
^ 1360 DRTR FI,40,99,13,20 
O 1370 DRTR 20,28,28,28,28 
1380 DRTR 20,46,49,40,45 
1390 DRTFl 41,40,49,4E,45 
p 1400 DRTR 20,20,20,20,20 
1410 DRTR 59,20,43,30,36 
1420 DRTR 20,3E,20,43,30 
1430 DRTR 2E,2E,2E,00,20 
O 1440 ORTR 20,46,49,40,45 
1450 DRTR 20,44,49,53,50, 
1460 DRTR 3R,20,20,24,90. 
Q 1470 DRTR 20,20,20,20,20 
1480 DRTR 12,20,31,20,92. 
1490 DRTR 47,20,46,49,40. 
_ 1500 ORTR 59,50,45,00,00. 
1510 DRTR 20,20,20,20,20, 
15S:0 ORTR 20,32,20,92,20. 
1530 DRTR 20,46,49,40,45, 
O 1540 ORTR 50,45,00,00,20, 
1550 DRTR 20,20,20,20,20, 
1560 DRTR 33,20,92,20,55, 
^ 1570 DRTR 46,49,40,45,20, 
O 158V3 ORTR 45,00,00,20,20, 


EGYESÜKET 


DE, 

H0/ 

01 / 

03C7 

0 

11, 

66, 

DB, 

0383 

DR.. 

CS/ 

08, 

04E4 


/ 

FF, 

20/ 

0382 

0 

02, 

20, 

63, 

03RD 

DB, 

00 , 

02/ 

0352 


RD/ 

10, 

20/ 

0410 


65, 

15, 

R8/ 

0508 

0 

20.. 

02, 

FF , 

0448 

20/ 

20/ 

U2/ 

0513 


U0/ 

02/ 

E0/ 

0580 

0 

00, 

0y / 

80/ 

034F-t 

FF, 

L 0 / 

01 / 

0388 


02, 

FF , 

C0 / 

0452 


20/ 

7C / 

11 , 

0208 

0 

00 , 

04/ 

E0/ 

03E4 

CD 

09 / 

00 , 

0358 


F F , 

R9/ 

58, 

0301 

0 

S‘0 / 

09 / 

00 , 

04 1 0 

20/ 

02, 

FF, 

0381 


07/ 

F0, 

014, 

0378 


2L/ 

20, 

02, 

0368 

0 

FF , 

18, 

R6, 

0480 

FF , 

R9, 

60, 

0523 


20 • 

CC / 

13, 

Gi26C 


08, 

18 / 

65, 

0318 

CJ 

CS* / 

00 / 

8 tíí / 

04RD 


OF , 

18, 

90/ 

0318 


>3C / 

68 , 

15, 

035B 

0 

C 8 / 

CR/ 

D0, 

04C7 

y 0 .• 

0B, 

r:9 / 

0-36t. 


y 0 / 

08/ 

bHi* / 

03R9 


20 , 

93/ 

i 1 , 


0 

85, 

IJO, 

H9/ 

0426 


y 0 / 

H 6 / 

U 8 . 

04 17 


20 / 

cr / 

13, 

039L 

0 

CL’ / 

13, 

20 / 

031 8 

/ Cb* 

, tl 0 

, F 0 

/ 0321 


, RF 

, 13 

/ 20 

, 0240 

0 

/ sv 

, 11 

, 85 

, 0 340 

/ 20 

,5F 

/ R4 

/ 0501 


/ 20 

/ 93 

, 11 

, 0376 


, 11 

, 13 

/ 10 

/ 021 C 

0 

,24 

,08 

/ 3*0 

, 0418 

. R0 

, FF 

,CR 

, 04OF 


,81 

/ 10 

,FR 

, 0492 

0 

,81 

/30 

/ 18 


/ 20 

,Ü 2 

, FF 

, 05R7 


, CB 

/ 49 

, FF 

/ 0479 


/ 20 

,U 2 

,FF 

, 0.;,iDE 

0 

/ 20 

,02 

, FF 

, 0336 

- 13 

,H9 

,89 

, 02F9 


,20 

,66 

/ 1 1 

• 0281 ■ 

0 

/ 4C 

, 00 

/ 10 

, 0430 

/ 88 

/68 

/ 20 

, 0 308 


/ 80 

/ 18 

, fi5 

, 0205 


,01 

/ 6y 

/ 18 

/ 03R3 

0 

/ 20 

/ 80 

, Ü 8 

, 0555 

/80 

/ Hy 

, 0Ü 

, 0348 


/ 4U 

, U2 

, FF 

, 0404 

0 

,85 

/ 90 

/ R9 

, 036H 

,85 

, 80 

/ R9 

, 049H 


/ 

/ RE 

/ h9 

, 0386 


/ F0 

/ H'ö 

, F 16 

, 03FR 

0 

/ 20 

/ 96 

, FF 

, 04DFI 

/ 06 

/ 8 C 

, OE 

, 0436 


, CF 

, 15 

,80 

, 03F8 

0 

,28 

/ RC 

, OE 

, 048R 

, OF 

, 15 

/ 20 

, 0407 


, U2 

, FF 

/ 20 

, 03DD 


, 10 

/ RR 

, F0 

, 0554 

0 

/ 20 

- 14 

/ 20 

/ 0297 

,08 

, 20 

,85 

, 03F0 


/ 20 

, 20 

, 20 

, 0269 


,20 

,20 

,20 

,0100 

0 

/ 20 

,45 

,58 

, 01FD 


,52 

, 00 . 

/ 20, 

,0169 


/ 20 

/ 20 

, 42. 

,0122 

0 

/ ;í4 

/ 20. 

, 20. 

, 01B0 

,28 

/ 34, 

r 20, 

, 018R 


/ 20. 

.36, 

-20. 

■ 0128 


/ 20, 

,54. 

,4F . 

- 0203 


/ 4C. 

.41, 

• 59. 

- 0236 


/ 00 , 

/ 20 . 

. 20. 

■ 01 7B 


. 20 , 

• 20, 

• 20 , 

■ 0100 

0 

, 20 . 

,50. 

,52. 

,0107 

, 45 . 

,20, 

■ 54. 

■ 01FB 


/ 20. 

,20, 

,20, 

,0168 


■ 20 , 

' 20 / 

’ 1 2 1 

, F2 

U 

, 53 , 

. 45 , 

,51 , 

, 0200 


.20, 

. 54 , 

59, 

. 020D 



.20/ 

-20- 

■ 012F 

0 

• 20, 

. 12 , 

20 , 

.F2 


. 53 , 

.•52, 

20/ 

.021F 


. 54 , 

■S9/ 

50, 

023D 


■ 36, 

• 20, 

20, 

01 10 



o 


o 


o 


o 


o 


o 


o 


o 


1590 ORTR 43,48,4F,4F,53,45,20,46,0227 
1600 DRTR 49,40,45,20,54,59,50,45,0230 
1610 DRTR 20,28,31,20,33,29,00,00,0110 
1620 DRTR 00,00,20,20,20,20,20,20,00 
1630 ORTR 20,20,20,20,12,42,92,41,01R7 
1640 DRTR 53,49,43,20,50,52,4F,47,0237 
1650 ORTR 52,41,40,20,44,49,53,50,0230 
1660 DRTR 40,41,59,00,00,20,20,20,0160 
1670 DRTh 20,20,20,20,20,20,20,12,F2 
1<;80 ORTR 40,92,41,43,48,49,4E,45,0287 
1690 ORTR 20,4C,41,4E,47,55,41,47,021F 
1700 ORTR 45,20,50,52,47,20,44,49,01FB O 
1710 DRTR 53,50,40,41,59,00,00,20,0103 
1720 DRTR 20,20,20,20,20,20,20,20,0100 
1730 DRTR 20-, 12,46,92,49,40,45,20,0211 
1740 DRTR 40,4F,44,45,20,44,49,53,0225 O 
1750 DRTR 50,40,41,59,00,00,20,20,0190 
1760 ORTR 3E,20,20,43,48,4F,4F,53,01FR 
1770 DRTR 45,20,44,49,53,50,40,41,0222 
1780 DRTR 59,20,4F,50,54,49,4F,4E,0252 
1790 DRTR 20,28,42,2F,4D,2F,46,29,01fi4 
O 1800 DRTR 00,52,45,41,44,49,46,47,01FR 
1810 OFIT R 20,46,49,40,45,3R, 20,00,019R 
1-820 DRTR 53,54,41,52,54,20,41,44,0233 
P 1830 ORTR 44,52,45,53,53,3fl,20,00,0108 
^ 1840 DRTR 12,50,52,45,53,53,20,41,0200 
1850 DRTR 46,59,20,48,45,59,26,92,0270 
1860 ORTR 00,24,18,49,30,95,00,30,R17R 
O 1870 DRTR 31,32,33,34, .35,36,37,38,01R4 
1880 DRTR 39,41,42,43,44,45,46,20,01EE 
1890 DRTR 4F,26,00,00,21,69,00,00,0107 
1900 ORTR 00,69,09,00,66,69,09,00,0153 
1910 ORTR 00,69,09,00,16,69,00,00,69 
1920 DRTR 00,69,09,00,2fl,69,00,00,0105 
1930 ORTR 00,69,09,00,57,06,00,00,06 
O 1940 DRTR 15,06,78,00,75,06,78,00,0186 
1950 DRTR 15,06,78,00,18,06,00,00,81 
1960 ORTR 00,06,78,00,87,06,00,00,0108 
P 1970 DRTR 00,06,78,00,76,48,00,00,0144 
1980 DRTR 00,48,63,00,60,48,63,00,0102 
1990 DRTR 54,48,63,00,24,48,00,00,0168 
2000 ORTR 00,48,63,00,30,48,00,00,0123 
O 2010 DRTR 00,48,63,00,81,03,00,00,0126 
2020 DRTR 00,03,78,00,72,03,78,00,0166 
2030 DRTR 54,03,78,00,27,03,00,00,60 
p 2048 DRTR 00,03,78,00,80,03,00,00,0106 
^ 2050 DRTR 00,03,78,00,00,90,00,00,0106 
2060 DRTR 96,90,93,00,45,0O,R2,00,02fl0 
2070 ORTR 96,90,93,00,00,90,00,00,0255 
Ü 2080 ORTR 96,90,93,00,R8,90,R5,00,0398 
2090 DRTR 00,90,00,00,60,5R,5D,00,01R7 
2100 DRTR 60,5R,5D,00,9C,5R,99,00,02R6 
p 2110 DRTR 60,5R,5O,00,0F,5R,00,00,0180 
2120 DRTR 60,5R,50,00,33,5R,96,00,0243 
2130 DRTR 60,5R,50,00,.30,36,00,00,0189 
2140 DRTR 3C,36,3F,00,5l,36,42,00,017R 
ü 2150 DRTR 30,36,36,00,18,36,00,00,0102 
2160 ORTR 00,36,3F,00,20,36,00,00,OS 
2170 ORTR 00,36,36,00,39,84,00,00,0132 
p 2180 ORTR 39,84,48,00,46,84,66,00,0240 
^ DRTR 39,84,48,00,12,84,00,00,0196 

2i00 ORTR 00,84,48,00,8R,84,00,00,0100 
2210 ORTR 00,84,48,00,00,06,00,00,05 
O 2220 DRTR 00,03,03,00,00,01,00,00,07 
2230 DhTR 00,08,08,00,02,07,00,00,1F 
2240 ORTR 00,04,04,00,00,0R,00,00,12 
Q 2250 DRTR 00,09,09,00,08,06,00,00,23 
2260 DRTR 03,03,03,OO,OO,Ol,00,00,0R 
2270 DRTR OB,08,08,00,02,07,00,00,2R 
2280 DRTR OO,04,04,OO,OO,0R,OO,00 ,12 
2290 DRTM 00,09,09,OO,OO,06,00.00.IS 
2300 DRTR 00,03,03,00,00,01,00,00,07 
2310 DRTR 08,08,08,00,02,07,00,00,2Fl 
P 2320 ORTR 00,04,04,00, 00 ,0R,00,00 ,12 
2330 DRTh 00,09,09,0v3, 00 ,06, 00 ,00,18 
2340 ORTR 00,03,03,00,00,01,00,00,07 
2350 DRTR 08,08,08,00,02,07,00,00,27 
O 2360 DRTR 00,04,04,00,00,0R,00,00,12 
2370 DRTR 00,09,09,00, 00 ,06, 00 ,00,18 
2380 DRTR 03,03,03,00,00,00,00,00,09 
P 2390 DRTh 08,08,08,00,02,07,00,00,2R 
2400 ORTR 04,04,05,00,00,0R,00,00, 17 
2410 DRTR 00,09,00,00,01,06,01,00,11 
24k;0 ORTR 03/03,03,00,00,01,00,00,0R 
O 2430 DRTR 0B,08,08, 00 ,02,07,00, 00 ,2R 
2440 DRTR 04,04,05,00,00,0R, 00 , 00 , 17 
2450 ORTR 09,09,0R,00,01,06,00,00,23 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 

o 


o 


í!.460 ORTR 03,03,03,00,00,01,00,00,0R 
2470 DRTR 08,08,08,00,02,07,00, 00 ,2R 
2480 DRTR 00,04,04,00,00,0H,00,00 ,12 
2490 DRTR 00,09,09,00,01,06,00,00,19 
O 2500 ORTR 03 / 03,03, 00 , 00 , 01 , 00 , 00 , CjR p 

2510 DRTfl 08,08,08,00,02,07,00, 00 ,2R 
2520 ORTR 00 ,04,04,00, 00 , 0 R, 00 , 00,12 
p 2530 ORTR 00,09,09,00,2D,2D,2D,41,DR 
'■ '2540 DRTR 44,43,41,46,44,41,53,40,023R O 


21 


NÖVI;-."! 


o 






EGYESÜLEr 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


2550 

2560 

25?0 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

3000 

3002 

3004 

3006 

300Ö 

3010 

3012 

3014 

3016 

3018 

3020 

3022 


DflTR 42.43,43.42.43,53,42.45.0227 
ORTfi 51,42.49.54.42.40,49.42.0248 
DflTR 4E.45.42.50,4C.42,52.48,0250 
DflTR 42.56.43,42.56.53,43.4C,0255 
DflTR 43.43.4C.44.43,4C.49,43.0231 
DflTR 4C.56,43,40,50,43,50.58.0260 
DflTR 43.50.59,44.45.43.44.45,0241 
DflTR 58,44.45.59.45.48,52,49,0269 
DflTR 46.43,49,46,58,49,4E.59.0270 
DflTR 4fl,40.50.4fl,53,52.4C,44,0286 
DflTR 41,4C.44,58.4C.44.59.4C,025E 
DflTR 53,52,4E. 4F, 50,4F, 52,41,0274 
DflTR 50.48,41.50.48,50,50,40.0250 
DflTR 41,50.4C,50,52,4F.40.52,026C 
DflTR 48,52.52.54.49.52,54.53.0289 
DflTR 53.42.43.53,45.43,53,45,0248 
DflTR 44,53.45,49.53,54.41,53,0260 
DflTR 54,58.53.54.59.54,41.58.0299 
DflTR 54.41.59,54.53.58,54,58,0299 
DflTR 41,54.58,53,54,59,41,00.822E 
DflTR 00,00,00,00,00,00.00,00,00 
DflTR 00,00,00,00,00,00,00.00.00 
DflTR 00,00,00,00,00,00,00,00,00 
DflTR 00.00,00,00,00,00,00.00.00 
DflTR FF.FF,00.00.00.00.00.00.01FE 
Bfl=4089 

PR IHT " 2l::ONTROLL. > INOUL ! " 

FORI=1TO279=S=0 

FORJ=0TO7 

REflDflt = S=S+DEC<fl»> 

KEXTJ 

REflOflí 

IF SOOEC C Rí > THENPRIMT " RDhTH 18fl fl2 
HEXTI 

PR IHt" KONTROLL KÉSZ " 
PRINT"eEIRflS INDUL •“ 

RESTORE 


I*10“-EDIK SORBAN 


•• • STOP 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


3024 
3026 
3028 
30 
30 
30 
30 
30 
3040 


0 

32 

34 

36 

38 


FORI=lT0279 

FORJ=0TO7 

RERDflí = POKEBfl+I♦S+J,DECCfl4 > 

NEXTJ 

REflOflír 

NEXTI 

PRINT"BEIRflS KÉSZ " 

PRINT"MENTSD KI !" 

POKE45. 192 POKE46.24 


o 


REflDV. 


A szerkesztőség megjegyzése; Sajnos az ASSEMBLER 
programot nem sikerült kilistáznunk, de Pötyögőszolgála¬ 
tunknál megrendelhető. 


i'.a 


Tisztelt Szerkesztőség! 

Alábbiakban megküldöm Hoitsy Sándor és Németh Zol¬ 
tán programlistáját. 

A két 7. osztályos tanuló azt a feladatot kapta, hogy a 
sprite-ok tanítá.sához olyan programot írjanak, mely „a vi¬ 
lágító” pont helyét pozícionálja binális és decimális szám- 
rendszerben. Az elkészült programok jól segítik a sprite-ok 
oktatását. 

Hivessy Lá.szió 
tanár 


A sprite-szerkesztő 

A programot azért írtam meg, mert nekem is sok prob¬ 
lémám volt a sprite-ok megtervezésével, és az átszámítással. 
A program megkönnyíti a sprite megtervezését, az átszámí¬ 
tást pőlig minden pont berakása után elvégzi. 

A pontonként megszerkesztett sprite-hoz tartozó deci¬ 
mális számokat a képernyő jobb szélén írja ki. Ezen kívül 
van még néhány más funkciója is. Tartalmaz egy képer¬ 
nyőmásoló szubrutint, a sprite-ot tárolni és visszatölteni 
tudja. 


A program kezelése egyszerű. Ha valamit elfelejtünk, a 
„felfelé nyíl” billentyű a képernyőre, a „t)alra nyíl” billen¬ 
tyű pedig a nyomtatóra írja ki a program kezelését vezérlő 
billentyűket és azok hatását. A képernyőre az alsó sorba 
egyesével írja ki, a , 3 pace” billentyűvel kapjuk a következőt, 
az „x” billentyűvel pedig kiléphetünk a segítség-módból. A 
kurzort a „ersr” billentyűkkel tudjuk mozgatni. Pontot a 
billentyűvel tudunk berakni, a „spacc” billentyűvel tudjuk 
törölni a pontokat. A „clr” billentyűvel az c%csz sprite-ot 
töröljük, a „homo” billentyű hatására pedig a kurzor visz- 
s/akerül a bal felső sarokba. 

Ha az ábrát ki akarjuk menteni, nyomjuk meg az , 3 ” 
billentyűt. Ekkor a program kérdezi a filc nevét. A név csak 
betűket és számokat tartalmazhat, és maximum 12 karakte¬ 
res lehet. Ha a „rctum” billentyűvel befejezzük a név beírá¬ 
sát, a program egy kétWokkos soros állományként lemezre 
menti az. ábrát, a név végén a „.sp” azonosítóval. 

Ha betölteni akarunk egy már korábban kimentett ábrát, 
nyomjuk meg az „1” billentyűt. A file-név beírásánál ugyan¬ 
úgy járjunk cl, mint a kimentésnél. A betöltés után a prog¬ 
ram automatikusan kirajzolja az ábrát, majd kiírja a számo¬ 
kat is. 

A „h” billentyű hatására a képernyő tartalmát kinyom¬ 
tatja a prt^ram. 

Remélem, hogy másoknak is hasznos lesz a program. 

Németh Zoltán 


NOVEMBER : 22 















EGYESÜLET 




229 

C64 

90/ 7 

Screen editor 

70.- 

230 

C64 

90/ 7 

Szekvenciái is fiiéiístázö 

30.- 

231 

C64 

90/ 7 

Editorbövitö 

100.- 

232 

C64 

90/ 7 

Kockapóker 

100.- 

233 

C64 

90/ 7 

Lemezbüvész 

70.- 

234 

C64 

90/ 7 

szuper autostart 

50.- 

235 

C64 

90/ 7 

Sípoló billentyűk 

30.- 

236 

+4 

90/ 9 

Directory print 

70.- 

237 

+4 

90/ 9 

Órarend 

100.- 

238 

+4 

90/10 

Nyelvi gyakorló 

90.- 

239 

C64 

90/10 

Eprom szerkesztő 

50.- 

240 

C64 

90/10 

LED indikátor 

50.- 

241 

+4 

90/10 

öröknaptár 

90.- 

242 

C64 

90/11 

Funkcióbi1lentyuk 

50.- 

243 

C64 

90/11 

Formaprínt 

50.- 

244 

C64 

90/11 

Csíkos képernyő 

30.- 

245 

C64 

90/11 

Élet játék 

70.- 

246 

C64 

90/11 

Videózó 

100.- 

247 

C64 

90/11 

SEJT 64 

140.- 

248 

C64 

90/11 

Betükirakó 

100.- 

249 

0126 

90/11 

Input rutin 

90.- 

250 

C64 

90/31 

Dupla karakterek 

140.- 

251 

C64 

90/12 

SPRITE PEEPER 

70.- 

252 

C64 

90/12 

SPRITE 

50.- 

253 

+4 

90/12 

Malom 

140.- 

254 

C64 

91/ 1 

Vizszintes scroll 

50.- 

255 

C64 

91/ 1 

BASIC betöltő készitö 

50.- 

256 

C64 

91/ 1 

VERIFY MASTEfi 

70.- 

257 

C64 

91/ 1 

Hibamentes replace 

100.- 

258 

+4 

91/ 1 

Autó Input 

100.- 

259 

C64 

91/ 1 

Törtek 

50.- 

260 

C64 

91/ 1 

Ablakozás könnyen 

70.- 

261 

+4 

91/ 2 

80-as képernyő 

60.- 

262 

C64 

91/ 2 

Fizikateszt 

40.- 

263 

C64 

91/ 2 

40 Sprite 

100.- 

264 

C64 

91/ 2 

Raster - Master 

60.- 

265 

C64 

91/ 3 

Rulett 

80.- 

266 

+4 

91/ 3 

Tape-disc copy 

90.- 

267 

C64 

91/ 3 

BASIC rearranger 

40.- 

268 

C64 

91/ 3 

BASIC decompactor 

40.- 

269 

C64 

91/ 3 

BASIC merger 

40.- 

270 

C64 

91/ 3 

SEIKOSHA 

60.- 

271 

C64 

91/ 3 

Cartrídge szimuláció 

100.- 

272 

+4 

91/ 3 

Sally kulcsszókeresö 

40.- 

273 

+4 

91/ 3 

Merge C+4 

60.- 

274 

C128 

91/ 4 

1.5 MHz-es C64 

80.- 

275 

C64 

91/ 4 

Morze 

60.- 

276 

C64 

91/ 4 

Gprint 

40.- 

277 

C64 

91/ 4 

ASCII - CHR$ 

40.- 

278 

C64 

91/ 5 

Rendező 

60.- 

279 

C64 

91/ 5 

Keretbeíró 

50.- 

280 

C64 +4 

91/ 5 

NLQ Print 

50.- 

261 

C64 

91/ 5 

FLD 

40.- 

282 

C64 

91/ 5 

Raster Split 

40.- 

2B3 

+4 

91/ 6 

Programnyi1vántartó 

60.- 

284 

C64 

91/ 6 

Regiszter 

50.- 

285 

C64 

91/ 6 

Digitalizált zene 

40.- 

266 

C64 

91/ 6 

Ékezetes MPS 802 

60.- 

287 

C64 

91/ 7 

Ékezetes iratkészitö 

00.- 

266 

+4 

91/ 7 

Bűvös téglalap 

80.- 

289 

C64 

91/ 7 

Dominó - H 

80.- 

290 

C64 

91/ 7 

Raktáros 

60.- 

291 

+4 

91/ 7 

Tologató 

50.- 

292 

C64 

91/ 7 

Aren 2000 

40.- 

293 

C64 

91/ 7 

Bad Lamps 

60.- 

294 

C64 

91/ 7 

Operation Patriot 

40.- 

295 

+4 

91/ 7 

Mozaik - B 

70.- 

296 

+4 

91/ 7 

Logi Kód 

50.- 

297 

C64 

91/ 7 

Két nap 4 óra 

100.- 

298 

+4 

91/ 7 

Bőmber 

40.- 

299 

+4 

91/ 7 

Dominó - K 

A.- 

300 

+4 

91/ 7 

The Wa11 

30.- 

301 

C64 

91/ 7 

Mozaik — K 

40.- 

302 

+4 

91/ 7 

Dominó - R 

50.- 

303 

+4 

91/ 7 

Borgok Kincse 

150.- 

304 

+4 

91/ 7 

Asteroids 

50.- 

305 

C64 

91/ 9 

Ékezetes irat forrás 

30.- 

306 

C64 

91/ 9 

Yugo2 

40.- 

307 

C64 

91/ 9 

Adventure - Sz 

100.- 

300 

C64 

91/ 9 

Morze 

100.- 

309 

♦ 4 

91/ 9. 

Memory Game Plus 

80.- 

310 

C64 

91/ 9 

Cap 1 taly 

100.- 

311 

C64 

91/ 9 

Gengszterek 

50.- 

312 

C64 

91/ 9 

Küldetés 2000 

80.- 

313 

C64 

91/ 9 

Itt a $ hol a $ 

40.- 

314 

C64 

91/ 9 

Hewing 

40.- 

315 

+4 

91/10 

Mikrobi 

40.- 

316 

+ 4 

91/10 

Nest of Fleas 

150.- 

317 

C64 

91/10 

Adventure - F 

80.- 

318 

+4 

91/10 

A világ szeme 

120.- 

319 

C64 

91/10 

Gondolkozó 

80.- 

320 

C64 

91/10 

Memor 1 - B 

100.- 

321 

+4 

91/10 

Matekastély 

00.- 

322 

C64 

91/11 

Lottó 

60.- 

323 

C64 

91/11 

Totó 

60.- 

324 

C64 

91/11 

Német gyakorló 

50.- 

325 

C*A 

91/11 

Beszelő szótár 

100.- 

326 

C+4 

91/11 

File examxner 

50. - 

327 

C64 

91/11 

Sprite szerkesztő 

40.- 

326 

C64 

91/11 

Egyszerű Sprite 

40.- 




Tagsági szám: 


Feladandó az újság címére: 

Commodore Újság 
Budapest, 1388. Pf. 86. 

Alulírott megrendelem a következő programokat a PÖTYÖ¬ 
GŐSZOLGÁLAT-tói; 


PROGRAM SORSZÁMA 


2 . 

3 . 

4. 

5 . 

6 . 

7 . 

8 . 

9 . 


összesen: 


db 


ÁRA 

LU'- 
LU'- 
LU'- Ft 
ÜJ'- Ft 
LU'- Ft 
UJ'- Ft 
LU'- Ft 
LU'- Ft 
LU'- Ft 


A programokat a SZOLGÁLAT által biztosított 
lemezre (99 Ft/db) 
kazettára (40 Ft/db) 

az általam küldött adathordozóra kérem. 

(Kérjük a megfelelő szöveg aláhúzását!) 

Postaköltség (35 Ft) 

A fizetés módja: személyesen — csekken — utánvéttel 

(Kérjük a megfelelő szöveg aláhúzását!) 

ÖSSZESEN: 

A megrendelő neve:. 

Címe:.. 


23 “ NOVEMBER 
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‘ POKECM, K ■■ ÖOStJB 14120 


0 RÉM 

1 RÉM » C= UJSrtj SŰR.'iZrtM - * 

2 RÉM ■<* C64 SPRITE SZERKESZTŐ * 

2 RÉM * PROGRRM = MEMETH ZiTLTflN • 

4 RÉM 5(t»«»!**!*!|H«»****’«****!**»*!|n*»**!»**!(l» 

5 RÉM 44* SPR.ITE szerkesztő 4*4 

S RÉM IRTR MEMETH ZOLTHN 
r RÉM ölJD/2121. OOÜMI N.rt. OT IjZB 
10 0IM*H<2> , SPí.63,' ^ POKE532ÍÍ0,0 = POKE532SI y 0 
20 .K=1 = V=21 •Z=Zy K.=lZl ••CM= 1024+02 = E=i:M 
30 pRinT“::**»»»i«=i20; c=S4; e=32, ft=is 
40 PR.IHT"*»OCe«042lOCBM042lO*30rt0421 1 ÍZESBEN" 

S0 F0RI = 1T021 = 1*=RIÜHT»<;STR*< I > , LEKtíSIRíC !>>-!> 

60 IFIr:i0THENI»="»l" + l» 

6 S PR INTI*; 

ro PRINT"rmTTrrrnTTmxTTf TTrr 1 0 0 0 “-next 

ZS PR.INT“»*I- 

90 GETB*=IFe*="“THEN90 
100 IEB»=“»"ftNOV- 1>0THENC=CM = CM=CM+40 •• V=V- 1 > 0030610000 = GOTO90 
110 IFe*="'T"RNOV+1<22THENC=CM-CM=CM-40■V=V+1•0030610000 = OOTO90 
120 IFB*=''»l"FtNDK+lC25THENC=«3M = CM=CM+l •■X=X+1 • OOStJ610000 •• GOTO90 
130 lFe*=“H'‘ftNDX-l>0THENC=i3M = CM=CM-l •■X=X-1 i3<3SO610000 = GOTO90 
140 IFB»=".”ftNOX+l<:25THEN2=160=C=CM=CM=CM+l X=X+1=0030810000=GOTO90 
1S0 IFB*=“ "RNDX+1C2STHENZ=79 = C=«;n = CM=CM+1 ••X=X+1 •0030610000 •• GOTO90 
160 IFB*=“ . “THENZ=160 = C=CM = CM=CM-23 = X*=X-23 0030610000 = OOTO90 
170 IFe*=" "THENZ=79’C =CM■CM=CM-23■X-X-23■OOSOB10000 = OOTO90 
180 IFB*=“W'THEN':=CNCM=1024+82 = X=1 =V=21 =GOSOB10000 = G»3TO90 
190 IFB*=“n"THEN20 

200 IFB*=“S“THENGOSOei1000 = GOTO90 
210 I FB*=" L •• THENOOSOB12000 = i3*3TO90 
220 IFB*=“H"THENGOSOB9000=GOTO90 
230 1FB*= •• T“ THENijOStJB14000 ■ O13TO90 
240 IFB»=“+“THENOOSOB6000 ^ GOTO90 
280 1FB*=“X"THEN5000 
290 GI3TO90 

5000 CLR = PRINT"39»*iai 00*30 BVTE! ■” =ENO 

6000 0PEN4,4^PRINT«4=PRINT#4=PKINT«4,"CRBR BILLENTVOK'KORZOR MOZOfiTfiS" 


[M^J 


>PONT BERRK.ftS" 
<SPflCE> = PONT TORLES “ 
H-HHROiJ*3PV“ 

+-seOITSEG NVOMTHTRS" 
S = TRR.I3LHS" 

L "TÖLTÉS" 

ZEt RS í TniM 

<HOME>=VISSZA fi SRROKBR" 
X=EXIT“ 

1= SEGÍTSÉG" 


■I" 


6010 PR.INT#4,“ 

6020 PR1NT*4," 

6030 PRINT«4," 

6040 PRINT*4," 

6050 PRINT*4,“ 

6060 PR.INT*4." 

6070 PR1NT*4,“ 

6080 PRINT#4," 

6090 PR.INT«4,“ 

6100 PRINT*4." 

6110 PRINT«4"CLOSE4=RETORÍ4 
7000 FRINT“»MHLENEV ? 

7010 POKE204,0"F*="“ 

7020 *3ETX* = IFX»»" “ THEN7020 
7030 IFX*<;"fi"ORX»>"Z“THEN-7070 
7040 1FLEN<F * ><12THENF*=F *+X*"X*=“ 

7050 IFLENf.F*) = 12THEN7130 

7060 PR. I NT " ; F*. " RETOR.N 

7070 IFfiSC t X* » 47HNÜRSC < X* J L58THEN7040 

7100 IFX*<;>CHR»<;i33RNaX*r_>CHK*< 20>THENX*=‘'" "GOTO7020 

7110 IFX*=CHR*<20>RNÜLEN<:F»)>0THENF*=LEFT*<;F»,LEN<F»)-1> =003067060'017107020 
7120 1FX*=CHR*<13>THENH0=LEN<;F*) =FIDR J=12-HI3TO0STEP-1 =F*=F*+” " = NEXT J ■ G0T07130 
7125 X»=“"'GOTO7020 

7130 PRINT"e*»»l 0=128; •3=64; B=32; R= 16" ••POK.E204, 1'RETOR.N 
8000 INP0T#15,EN/EM*,ET,ES 
8010 IFEN<:>0THENPP.INT"«MMmi 
8020 IFEN-.;:>0THEN8v340 
8030 R.ETORN 

8040 OETX*= IFX*='‘“THEN8040 


' ' G*3SOB7060 ' GOTO7020 


uuMMM«)in>w»r;EM*" err.or 


M" , 


8050 PRINT"4paMNIIUWIM>»(^^ 

8060 IFB*="L"THENCLOSE15'CLOSE2'GOSOB160O0■GOTO90 


t'SEGÍTSÉG" 


8070 CLI3SE15 = CLOSE2 = GOTO90 
9000 POKECM,Z'ÜPEN4,4 

9010 X2=0 = V»="00“ ' Fi3R.XV=01024 = FORXX=0TO:39 = XK.=PEEK.< 1024+XV440+XX) 

9020 IFXK>12BTHENXK.=XK-128'V*=V*+CHR»<18)'X2=l'GOTO9040 

9030 IFXZ=1THENV*=V*+CHR*<146>=X2=0 

9040 IF <;XK>63 > 4 < XK-C96 > THpiXK=XK+128' GOTO9060 

9050 IFí.<XK>0>4<XK.C32) ) + <<;XK.>95)*<XK.<128) >THENXK.=XK.+64 

9060 V*=V*+CHR*<XK.)'HEXT=PRINT«4,CHR*<15>CHR*<16>V*CHR*<8) 

9*370 V»= " 00 “ = NEXT = PR. I NT #4, CHR* < 15 > - CL0SE4 ' Pi3K.ECM , K' RETURN 
10000 POKEC.Z = Z=PEEK<CM)'XX-X'IFX=1RN0B*="."ORB*=" "fiNOX=lTHENX=24 
10010 GOSOe10600' X=XX ' Pi>K.ECM, K = RETORN 
10600 IFB*<>". “HNOBÍO" “THENRETURN 

10605 .J=IHT<CX-2>/8> 

10606 IFX>23THENJ=2 

10610 Fi3R.I=7TO0STEP-l ' 1FFEEK.< 1024+82+8* J+<21-V>440+<7-I > ) = 160THENGOSOB 15000 
10620 NEXT:PR.INT"»aiiW»MMMI>»M>»m»MMM»MMr‘; -FORL=irO20-V'PR.1NT"M" ; 'NEXT 

10625 IFV=21TMENPR.INT""n" ; 

10626 IFV=20THENPR.INT"T‘; 

10630 SZ*=R1GHT*<;STR*<.R< J) ) , LENCSTRÍCRí -J) > 3-1V 

10635 IFLEN<;SZ»> = 1THENSZ*=" "+S2* 

10636 IFLEH<:SZ*)=2THENS2*=" “+SZ* 

10637 SZ*=3Z*+" ” 

10638 FORM=0TOJ*4 = PR.INT”»I"; 'NEXT 

10640 PRINTSZ*-; : SP<<:21-V>*3+.1+1 3=R<J)'R< J)=0 'RETORN 
11000 0*33067000 ' OPEN 15,8,15' OPEN2,8,2, F »+ " . SP, S, W" = *303068000 
11010 Fi3RI=lT063=PRINT#2,SPCI>'003068080'NEXTl 
11020 CL03ei5 ' CL0SE2 R.ET'TRN 

12000 *3*33067000' OPEN 15,8,15'0F EN2,8,2, F* + " . SP, S, R." ' GOSOB8000 
12010 F*3RI = 1T063= INPUT #2, SF'C 1 ? = 003068080 ' NEXT I 
12020 CLOSE15'CLOSE2'*3*330616*300 
12030 RETURN 

14000 F8*="«n)MiiMiwmiMwwnDaMnMsMiwaKiKuaMMr''pR.iNTPij*, “ crsr billentvok.'Kur.zi3R m* 3"; 
14005 PR.INT“ZGfiTR.S “; 

140*36 *3ETX*'IFX»="X“THEN14120 
1-4007 IFX*=""THEN14006 

14010 PR1NTP*3*“ . =P*3NT BERRKfiS "; 

14015 GETX*'lPX*="X“THEN14120 

14016 IFX*=""THEN14v315 

14020 PP.INTPO*" <;SPR*3E> = P'3NT TI3RLES 
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14026 

14020 

14035 

14036 
14060 

14065 

14066 
14070 

14075 

14076 
14000 

14085 

14086 
14090 

14095 

14096 
14100 
141V35 
14106 
14110 
14115 
14120 
14130 
15000 
16000 
16005 
16010 
16020 

16025 

16026 
16030 
16035 

REfHDV. 


■ SEG1TSEG HVOMTRTfHS 


S TRROLfiS 


GET X*;IFX»="X“THEM14120 
IFXt=‘' “ l'HEH14025 

p(? 1 KTPOí '■ . H ■ HHP.OCOPV 

GETX* ■ IFXS- = "X“THEH14120 
I FX»=“ " THEM 14035 
PRIHTP04" + 

GETXí : IFXÍ = ‘'X''THEH14120 
IFXÍ="“T HEH14065 
PRIHTPOf 

GETX» = IFXÍ=■' X" THEH14120 
IFXit = '' •'THEH14075 
PRIHTPOí" L'TÖLTÉS 

GETXí • IFX* = "X'‘THEN14120 
IFX»=““THEH140Ö5 

PR I HTPOar" <:CLR> ■ KEPERHVÜT őrlés 

GETXíT ‘ IFX*="X"THEM14120 
1FX< =" •'THEH14095' 

PRlHTPOíT'' <.HOME> ■ Vissza H SRRÜKGa 

GETXÍ : IFXÍ=‘'X“THEH14120 
1 f Xí=■' “ THEH 14105 
PP.IHTPOí" x^exiT 

GETXí ' IFXf=" '‘THf:H14115, 

PRIHT'T’"- 

PRIHT"M"^RETURH 
H<.T>=H<:.J>+2TI ^RETURH 

F0RV=1 T021 : FORX=0TO2 • S=SPt <Y- 1 >*3+X+ 1 > s-FOR J=7TO0STEP-1 

ci=i i 06 +<;v -1 >í*40+x»8+<:7-j> 

IFS;>=2T3THEHS=S-2tJ ^PpKECl, 160. GOTO1G025 
IFS<2 LITHEMPOKEC1,79 

IFJ=7RHOX=0aHÜV=lTHEH2=171^ HEXT.J 'HEXTX HEXTV 
HEXT.J ■ HEXTX ^ HEXTY 

F0RV=1T021 ^ FOR.J=0TO2 ■ GÜSUB10610 ’ HEXT J -HEXT ■ X=1 ’ V=21 = CM=1106 ■ K=171 ■ POKECt'L K 
Z* 160 • RETURH ____ 
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Hoitsy Sándor, 

7. osztályos tanuló munkája 

Egy éve járok számítástechnika-szakkörre. C64-em van 
otthon, és azon dolgozom a sz.akkörben is. A szakkörbe azért 
iratkoztam t)c, mert a számítógépet nemcsak jártékra aka¬ 
rom használni, hanem programokat is szeretnék írni rajta. 
A szakkörben nagyon sokat tanultam és Hivessy László 
szakkörvezetó tanár úr is sokat .segített. 

Az. önálló programok ké.szítésébcn problémát jelentett, 
hogy sem az ismerőseim körében, sem a szakkönyvekben 
nem találtam olyan spritc-szerkesztő programot, amely a 
sprite adatainak kiszámítását megkönnyítette volna nekem. 
Elhatároztam, hogy írok egy spriteszerkesztő programot. 

Ez a program elindítása után egy négyzethálót rajzol a 
képernyőre. Egy négyzet a spritének egy pixelét jelképezi. A 
képernyő jobb oldalán az üres spritének megfelelően 0-ák 
jelennek meg. A négyzetháló bal fcLső sarkában egy csillag 
jelképezi a cursort, amit a cursorvezérlő billentyűkkel lehet 
irányítani. 

Ha egy üres helyen megnyomjuk a „space”-t, akkor a 
cursor inverzre vált, és ezt a pixelt bekapcsolja. A képernyő 
jobb oldalán rögtön megjelenik a helyes számérték. A be¬ 
kapcsolt pixelt a cursor további mozgatása után a telített 
négyzetháló jelzi. Ugyanezt visszafelé is lehet csinálni, va¬ 
gyis a cursorral ráállunk a bekapcsolt pixelre, megnyomjuk 
a „space”-t és a pixel törlődik. A számértéket most is átszá¬ 
mítja a program. 

Amikor a sprite szerkesztésével készen vagyunk, akkor 
több lehetőségünk is van az adatok további felhasználására. 


1. A számokat a képernyőről leírjuk egy papírra. 

2. Hardeopyt kérünk a printette. 

3. A sprité-hez tartozó számadatokat lemezre felves.szük. 
A lemezre felvett adatokat a programba visszatölthetjük, 
vagy más programok hívhatják. A számadatokat (datákat) 
szekvenciális filc-okban tárolja 1 rekordban 3 adatot. 

Ilardcopy: 

A „P” megnyomásával indul. 

(A rutint Lángos István: A Commodore 64 mikrogép ke¬ 
zelése és programozása című könyvlml vettem át.) 

Savé: 

Az „S” megnyomásával indul. 

A képernyő jobb oldalán a számok törlődnek és megje¬ 
lenik az „írd be a nevet” szöveg. 

A név három karakter lehet, benne csak betűk és számok 
használhatók. A három karakter beírása után a cursor eltű¬ 
nik, de a felvétel c.sak a return megnyomásával indul. A re- 
turn megnyomása után a név bekérése eltűnik, és a program 
egy tömlmt tölt fel a sprite számadataival. Amikor ezzel 
kész, a tömb elemeit felveszi lemezre. 

Load: 

Az „L” megnyomásával indul. 

A töltés menete is hasonló a save-hez, c.sak a return meg¬ 
nyomása után az adatok és a sprite rajza azonnal megjele¬ 
nik. 

A program segítségével a sprite-ok szerkesztése jelentő¬ 
sen könnyebbé válik és spite-sorozatok (mozgási fázisok) ké¬ 
szíthetők. 

A programmal kizárólag egy.színű sprite-ok készíthetők. 
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0 RÉM ,_ 

1 RÉM * C= U.JSRG SORSSRM' W fíZS 

2 RÉM * C64 EGVSZIHU SPRITE * - - 

3 RÉM m PROGRRM ^ HOITSV SRHDOR W 

4 RÉM 

10 REM*EGY.SZIHIJ SPRITTE SZERKESZTŐ* 

20 RÉM # IRTR HOITSV SRHDOR * 

30 POKE53280,7 ■ P0KE53281,1: POK.E646,8 
40 RRIMT'Tl 0=128; C=64; 8=32; R=16; F7-HELP" 

50 FRIMT“» 0CER84210CBR8421DCBH8421 ORTR" 

60 F0RI = 1T021 ■ PRlHT"ir 1; ■ IFI<10THEMPRIHT‘.' " ; 

70 PR.IHT“irTTTTrrnTrrTTTTTTTTTTrn 0 0 0">HEXT 

80 PRIHT"-"; 

90 X=1 ’V=1 ‘Xl = l : Vl = l :Dí="*" •■Sí="r" ••BÍ=DÍ ■Cí=“a •" :EÍ="3N1«" :S1Í=SÍ ’ IFR=1THEH110 
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10Q G*= " < OI ItF < 21 / 3 > 

110 OOSUe 120 ■ ’ GOTO 140 

120 PP. IHT ; • F0P.22= 1TOX ^ PR IHT " M" , NEXT 

130 FOR2Z=lTOV-PR IMT ■ MEXT = PRIHTB* • RETURH 

140 GETR» •• I Fft»= •' " THEN140 

150 IFflí=“L“THEM3000 

1G0 IFR*=“S“THEH3300 

170 I FR;r= “ n" THENR= 1 = GOTO40 

180 IFR»=" il" THEHB»=S» GOSUB120 • i3i3SlJB5000 = GOTO600 

190 IFfi*=“P“THENB*=S* • GOSIJB120 = GOSUB4500 ■ RS:="a" ^ GOTO280 

200 1FR»=“<-"THEHPR1MT":TWI»»I VISZONTLRTRSRR! " >eNO 

210 IFR*^“)a"ORR*=“n"ORR»="»ri3RR*:=“»l"ORR»=" ••ORR»="a"ORR».= " "THEN230 

220 GOTO140 

230 X1=X-V1=V T=0 

240 I FR»= »’• RKDV021THEHV1 =V+1 T= 1 

250 lFR#="n"RNOVC>lTHENVl=V-l 1=1 

260 IFfi»=“M"RNDX<>24THERXl=X41 1=1 

270 IFfl*-“tl"RMDXC>l THENX1=X- 1 ‘ r=,l 

280 IFR»=“«"RRO<.X01EORVOl ' H|IEMX1 = 1' Yl = l 1=1 

290 IF<R*=" '•OR.R*=" •• >RR08T=H;TOEH8»=“r“ =S1#;=8* GOTO320 

300 IF<fií=" "ORR*=" " > rHEH'i»=C;í ■81*=S* -i3i3TO320 

310 IFR*<>“ ■■•HHÜRíO" "THEM350 

320 I = V = J = 1 RT <• < X-1) /8 ) +1 F-Ó9 ■ Él =S» = GOSIJB120 ^ GOSUBtíOO 
330 PR1HT"«ISW>*>**PP»PP»W»»»M»»P»PPI“ . ' FOR.I = lVOV ''PRlHT"nl‘'; 'REXT 
340 FORI = lTO J iPRlHT"*»*»r', ■ llEI'.T • PRINTP*; m 3OTO380 
350 IFT=0THeWGOTO110 r\ / 

360 S1*;='T" 1FPEEK< 1024 •W)*'- V1 + 21+X1 + 1 ;> 079THEHS1T=CT 
370 e*=S»:-GOSUB 120 / 

380 eí=D*^IFS1»=CÍTHERBí=L1 
390 S»=S1» ^ X=X1^ V=V1= ÜOl0110 

400 PR.lRT"i«»»»PP»«k»P»»»P«»>P»»»P»»*»WWmi‘'> 'F0R.I = 1T021 
410 FOR.J=1TO3!P=0 
420 GOSUB800 

430 IFJ1=0THEHPRIHTPÍ. GOTO450 
440 F<I,.J>-P 

450 NEXT ; IF J1=0THEUPR.IRT"W»»»»PP»»»»»PP»PPP»PP»»»»PW" ; 

460 NEXTRETURU 

600 PRIHT''«>IM<*P»»PP»»P»P»PP»»»»»P»»»*P»PtlRTSTRUCT10MS"G4 "MnRRRVlTRS > " ; 

610 PR.IMTGít "M-E = CR.SR LE "; 

620 PR.INTGfFEL CRSR. F. "; 

6 30 PRIHTG»"J. CRSR. J. "; 

640 PRINTGT"B. ^ CRSR. B. “ ; 

650 PRIRTG»"IMVERT:SPC "; 

660 PRINTGf'UJ SP‘R = CLR “ ; 

670 PR. I RTG» H. COPV = P " ; 

680 PRINTG!r "LOHÜ iL “ ; 

690 PRI.HTGí|:"SRVE - S " ; 

700 PR.IHTG»"EKÜ'<- " ; 

710 PR.IRT"7-V1SSZR“ 

720 GETfi* ■■ IFR» = " •!" THER760 
730 IFR» = "P“THERGOSUB4500 = GOTrj720 
740 IFR*<>"*-“THER720 
750 GOTO200 

760 R*="" .pRlRT"9nU»P»»»P»PPMPPM»PP»»»M»P»l URTR " B«=S»^S1$=S» 

770 PRIRT"»»VP»PraMPPP>»k»*UPM>raP»l F7-HELP " GOSUB50O0 > .J1 =0 ' GOSUB400 ^ GOTO36 
0 

800 FOR.L=lT08 

810 IFPEEK<;i024+40J*<.l+2>+l + <:<;.J-l>*8)+L>O79THERP=P+2t<;8-L> 

820 NEXT 

825 P*=R.IGHT»<.STR»<P>,3) + " “ ■ IFLER<P*)<:4THERP*=P*+" “ 

830 RETURN 

3000 PR1RT"M"GÍ"»I »"G» "»PP»Pi-0RD" 


:301'3 B**S» = GOSUB120 = GOSUB3500 

3020 OPER3/e,3, "i»> “+M*+" ,S,R" R3OSUB5000'PR INT "*»»««" ; =F0RH=1T021 
3030 INPUT#3,N1,N2,N3 „ 

3040 P=R1■GOSUB825'R1»=P» > X=N1■I=H = J=1= GOSUB4000 
3050 P=N2 ■ GO.SU8825 = N2»=P»' X-N2 > I=H = J=9 ■■ GOSUB4008 
3060 P=R3'GOSUB825■H3*=P* = X=N3 >1=H > .J=17 > GOSUB4000 
3080 B*=R1*+N2*+R3»■X=26 = V=H■GOSUB120 
3090 REXT'CLOSE3-X=l=V=1-Xl-l>V1=1 

3100 PRlRT“«"G»“»F7-HELP)0"G»"»PPPPPPORTfi" = Gi3TO360 
3300 PRIRT"«"G*“»I »"G»"»»PP»ISRVE“ 

3310 GOSUB3500 > GOSUB5000 

3320 Jl = l iGOSUB400^OPER3,8/3. "0: ^S.W" 

3330 F0R.H=1T021 ‘PRINT»3,FCH, 1 FCH, 2> ; FCH, .3> • REXT 

3340 CLOSE3 : .J1=0 > PRIRT"«"G»"*F7-HELP)a"G*"»»»»»PPI3RTR" •• GOSUB400 "GiTTOGeO 

3500 GOSUB5000'B*=S1* 13OSUB120 PRlNT"a"G!T"W«MW IRO BE R_NEVET<HRR0M" 

3510 PRIRTGT" RRRRKTER.Í “ >PR.lNTGí" _MMBHI I t MBUI TI«B“ ; ■ M»= "" 

3520 PP.IRTK*; ■FORCC=0TO30 
3530 G£Tfi*‘IFR#="“THERGOTO3590 
3540 fl=RSC<.fi»> 

3550 IFR=13THENM»=L£FT»<;m*+“ “ ,3> = I3OTO3640 

3560 IFR=20RNDLENí;i'«:)THENM»=LEFT»<:M*,U£Nf.M*>-l> ■PR.IRT"II 11" ; 

3570 IF<.R>47RROR<58>OR(.R>64RNÜR<:91>OR.R*=" " TH£RPR.IRT"1I"R»''»T‘ ; =M*=M»+R» 
3580 IFLENCMt)=3THEN3610 

3590 NEXT -PR. INT" 11" , = IF J2=l rH£NJ2=0 = K*=" V ••GOTO3520 
3600 .J2=l •K*=“arJB" :GOTO3520 

3610 GETR»- lFR»<>CHR*C13>HNÜRíOCFtR»<20)THEN3610 
3620 IFR»=CFIR.*<13>THEN 3650 
3630 M*=LEFT»f.R*';2> ••PRIRT"II" ; •■GOTO3590 
3640 PR INT "H " 

3650 M*="SF'R.. “+m.4" RETIJRN 

4000 V#="" ■■FORL=7TO0STEP-1 

4010 IFIRT<X/2'rt-> = lTH£NX=X-21L'V*=VT.+ “a ■“ = i3i3TO4030 
4020 V»=Vt+"r“ 

4030 NEXT 

4040 X=J•V=1■B»=V»'GOSUB120■RETURN 
4500 0PEN4,4 

4510 XZ=0 •• V»="00” • FOR.XV=0TO24 = FORXX=0TO39 ■ XK.=PEEt<.< 1024+XV*40+XX> 

4520 IFXK>128TFtENXK=XK-12S ■ V*:=V»+CHR»;< 18> •XZ=1 -00^34540 

4530 IFXZ=1THENV*=VT+CHR.«<: 146> • X2=0 

4540 IF <;Xtí>63 > * <: ><K ;;96 > THENXK=X»:.+128 = GOTO4560 

4550 1F < <; XK.30 ) * < XK.C32 > > + < <. XK>95 > »<: XK.7,128 > > THENXK.=XK.+64 

4560 V»=VÍ+CHR!t<Xt!.> >N£XT 'PR.INT»*4,CHR*<;i5>CHR*<16)V*CHR»<8> 

4570 Ví = “ 00 " ’ NEXT = PR. I NT«4 / CHR.T <; 15 ) •- CLi3SE4 = RETURN 
5000 PRlNT"SOq«»»»»»P»»»PPPP»PPPPP»P»PP»»»PI 
5010 FÓR 1 = 1 TO20 > F-R. INT " 

5020 NEXT ^ RETURN _ 
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Gépi kódú programozás 
Commodore gépeken 


(C+4, C16, 
VIC-20, C64, 
C116 és C128) 


utasítások 


Mielőtt nekilátnánk legfontosabb 
teendőnknek a jJP utasításkés/Jete is¬ 
mertetésének, nézzünk át néhány fon¬ 
tos jelölést és más tudnivalót. 

Minen utasításnál megadjuk, hogy 
az SR bitjei (a flagek) megváltoznak-e 
az utasítás elvégzése után. A legtöbb 
esetben csak azt adjuk meg, hogy vál¬ 
tozott-e egy bit, s hogy mire változott, 
arra itt adunk képleteket. A kivételeket 
helyben tárgyaljuk. Ha egy bit a szabá¬ 
lyoknak megfeleh'íen változik, azt a (v) 
betűvel, ha mindig 0-ra vagy 1-re, ak¬ 
kor azzal a számmal jelöljük. Ha az 
utasítás nem befolyásolja, nem írjük ki 
a flaget. 

Pl. N:{) T.yily, a negativ (N) bit az 
utasítás végrehajtása után mindig 0, a 
Z és a C pedig a szokásos lesz, A fla- 
gekkel azért törődünk ennyit, mert a 
BASIC IF-THEN utasításpárnak gépi 
kódban a flag-ek Ixiállítása és egy fel¬ 
tételes ugrás felel meg (a flagek alap¬ 
ján). Az IF-re talán leginkább a CMP 
(gépi utasítás) ha.sonlít, mely CSAK a 
flagek beállítására szolgál, viszont szin¬ 
te minden gépi utasítás megváltoztatja 
a flag-eket valamennyire, és ez alapján 
feltételes ugrá.sokat hajthatunk végre. 
A gyakorlatban ez azt jelenti, hogy 
nem túl gyakori a CMP utasítás, mert 
a műveletek után (az éppen béállt fla¬ 
gek szerint) azonnal lehet ugrálni. 

A flagek általános viselkedése 

A Z flag 1, ha az eredmény nulla. 

Az N flag 1, ha az eredmény legfel¬ 
ső bitje 1 (előjeles ábrázolásnál ez ép¬ 
pen azt jelenti, hogy negatív). 

A C bit 1, ha átvitel keletkezett 
(összeadás után), vagy ha NEM kelet¬ 
kezett áthozat (kivonás után). 

A V bitre lehetne képletet megadni, 
de ennek értelmes használatával még 
nem találkoztunk. (Floppyban a V bit 
speciális célra foglalt, ezt majd egy pél¬ 
dában láthatjuk.) 



Fontos, hogy a kél operandusű mű¬ 
veleteknél (magyarán, ahol két sz.ámból 
indulunk ki és kapunk egy eredményt) 
az egyik operandus mindig az. AC, a 
másikat a címzésmód jelöli ki, s az 
eredmény mindig az AC-ba kerül. Ezek 
a műveletek: összeadás, kivonás, AND, 
OR és EOR. Az összehasonlításoknál 
lehet indcxregiszterrel is hasonlítani a 
második operandust, de itt a mnemo- 
nik megmutatja, hogy az AC, XR vagy 
YR-rel kell. A mozgatásoknál a mne- 
monik legalább az egyik operandus he¬ 
lyét megadja. Ezekből látható, hogy az 
utasításoknál vagy semennyi (beleér¬ 
tett és akkumulátoros címzésmód) 
vagy egy operandust kell kijelölnünk a 
címzésmóddal. így az általános szin¬ 
taktikát a mellékelt táblázatból olvas¬ 
hatjuk ki. 

A MOS 65XX jtP család 
utasításkészlete 

ADC: N:v V:v Z:v C:v 

(Add memory to accumulator wilh 
carry) 

összeadja az AC-t a címzésmódban 
meghatározott memória byte-ot és a C 
flaget. Ha 'csupasz’ összeadást aka¬ 
runk, a C flaget előtte nullázni kell 
(Lásd CLC). 

AND: N:v Z:v 

["AND" memory with accumulator] 

Logikai ’és’ műveletet végez cl az 
AC és az op2 (iflásodik operandus, a 
cimzésmódban meghatározott byte) 
között. 


ASL: N:v Z:v C:v 

[Shift left one bit (memory or accu¬ 
mulator)] 

Balra (a nagyobb helyértékek felé) 
lépteti egy bittel az operandust. A leg¬ 
felső bit a C flagbe kerül, az alsó bitre 
0 lép be. Ha nem adunk meg op2-t, ak¬ 
kumulátoros címzé.st feltételez a fordí¬ 
tó (az assembler és a monitor is), tehát 
az AC-t lépteti. 

BCC: 

[Branch on carry clear] 

Ha a C flag értéke 0, elugrik a meg¬ 
adott címre, ha nem, akkor fut tovább 
a program. Mind a.sscmblernél, mind 
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monitor programnál abszolút (16 bites) 
címet kell megadni, amiből az kiszámít 
egy távolságot és ezt helyezi cl a me¬ 
móriában az utasításkód után. Ez csak 
akkor okoz gondot, ha túl messze aka¬ 
runk ugrani, mert akkor hibajelzést ka¬ 
punk. 

BCS: 

[Branch on carry set] 

Ha a C flag értéke 1, akkor elugrik, 
a megadott címre. (Lásd BCC) 

BEQ: 

[Branch on result zeroj 
Ha a Z flag értéke 1, akkor elugrik, 
a megadott címre. (Lásd BCC) 

BIT: N:o7 V:o6 Z:v 

(Test bits in memory with accumu- 
lator) 


Logikai ’és’ (AND) műveletet hajt 
végre az AC és az operandus bitjei kö¬ 
zött. Az eredményt nem tárolja, nem 
változik meg sem az AC, sem az ope¬ 
randus. A Z flag áll be az eredménytől 
függc'ícn, az op2 7, bitje az N flaglx;, a 
6. bitje pedig a V flagbe kcriil. 

BMI: 

[Branch on result minus] 

Ha az N flag értéke 1, akkor elugrik, 
a megadott címre.(Lásd BCC) 

BNE: 

[Branch on result nőt zero] 

Ha a Z flag értéke 0, akkor elugrik, 
a megadott címre, (Lásd BCC) 

BPL: 

[Branch on rc.sult pliisj 


AGFA^^ 


Nyugat-európai Pr ecizit ás 



Agfa X18 

Asztali fénymásoló 
50—200% Zoom-mal, 
gombnyomásra színest 
is másol. 


Agfa X38 

út a csúcsra. 
Színes másolás, Zoom. 
Percenként 30 másolat, 
kiépíthető 20 fiókos 
sorterral. 


Agfa X58 

Intelligens, nagy tel¬ 
jesítményű fénymásoló, 
automatikus lapadagolóvéü. 


A Nyugat-európai technológiával készült AGFA FÉNYMÁSOLÓK 
garantálják a tökéletes minőséget; a COPY-gomb megnyomásával 
automatikusan végrehajtja a kiválasztott műveleteket. 

A jól felszerelt budapesti Agfa-raktárból azonnal szállítjuk 
a kellékanyagokat és az eredeti Agfa alkatrészeket. 

És mindezt FORINTÉRT 

Ezek után mi akadálya, hagy az információs kupónt elkűidje nekünk. 


Autorisieft voft Agia-Gevaeri Ges.m.b.H^ Wtert 
Az Agfa Miien hivatalos Képviselőié 


ASIM 


AGFA-ASI, 1113 Budapest, Bartók Béla út 120. I 

Kérem, rövid időn belül informáljanak az Agfa fénymásolókról. I 


Vállalat/Név: 
Cím:_ 


% 


Telefon: 


i 
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Ha az N flag értéke 0, akkor elugrik, 
a megadott címre (Lá.sd BCC) 

BRK: 1:1 

[Force break] 

A PC-r2 értékét (ez 2 byte!) elmenti 
a stackbe, 1-be állítja a B flaget, majd 
elugrik a megszakítás rutinra. Ez az 
utasítás akkor is végrehajtódik, ha 
egyébként a megszakításokat letiltot¬ 
tuk, az í flag l-l)c állításával. 

BVC: 

[Branch on ovcrflow clear] 

Ha a V flag értéke 0, akkor elugrik, 
a megadott címre. (Lásd BCC) 

BVS: 

[Branch on ovcrflow set [ 

Ha a V flag értéke 1, akkor elugrik, 
a megadott címre. (Lásd BCC) 

CLD: C:0 

[Clear carry flagj 
Törli (nullázza) a C flaget. 

CLD: D:0 

[Clear decimál mode] 

Törli a D flaget. Ezután bináris 
módban számol a p.P (Ez az alap álla¬ 
pot, a BASIC-rendszer csak így szá¬ 
mol). 

CLI: 1:0 

[Clear interrupt dísablc bitj 
Törli az I flaget, engedélyezi a meg- 
.szakításokat. 

CLV: V:0 

[Clear ovcrflow flagj 
Törli a V flaget. 

CMP: N:v Z:v C:v 

[Comparc memory with accumula- 
tor] 

Kivonja (!) az AC-ból az op2-t, az. 
eredményt nem tárolja, de annak meg- 
fclcU'ícn beállnak a flagck. 

CPX: N:v Z:v C:v 

[Compare memory and index X[ 

Kivonja az XR-ből az op2-t, az 
crctlményt nem tárolja, de annak meg¬ 
felelően beállnak a flagek. 

CPY: N:v Z:v C;v 

[Compare memory and index Y] 
Kivonja az YR-ből az op2-t, az 
eredményt nem tárolja, de annak meg¬ 
felelően beállnak a flagck. 

DEC: N:v Z:v 

[Decrement memory by one] 
Csökkenti eggyel az op2-t. Ha az 0 
volt, akkor $FF-re átfordul. 

DEX: N:v Z:v 

[Decrement index X by oncj 
Csökkenti eggyel az XR-t. (Lásd 
DEC) 
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DEY: N:v Z:v 

IDccrement index Y by one] 
Csökkenti eggyel az YR-t. (Lásd 
DEC) 

EOR: N:v Z:v 

["Exclusive-OR" memory with ac- 
cumulator] 

Logikai kizáró-vagy (EOR, XOR) 
műveletet végez el az AC és az op2 kö¬ 
zött. 

INC: N:v Z:v 

[Increment memory by one] 

Eggyel megnöveli az op2-t. Ha az 
$FF volt, akkor 0-ra átfordul. 

INX: N:v Z:v 

[Increment index X by one] 

Eggyel megnöveli az XR-t. (Lásd 
INC) 

ÍNY. N:v Z:v 

[Increment index Y by one] 

Eggyel megnöveli az YR-t. (Lásd 
INC) 

JMP: 

[Jump to new location] 

Elugrik az op2 címre. Fizikailag Ix;- 
tölti a PC-bc op2 16 bites címét, így a 
következő utasítást már onnan fogja 
olvasni. 

JSR: 

[Jump to new location saving rcturn 
address] 

Elugrik az op2 címre, de elmenti a 
stacklx; a PC+2 értéket. így mód van a 
visszatérésre. Megfelel a BASIC GO- 
SUB utasításnak. 

LDA. N:V Z:v 

[Load accumulator with mcmory[ 
Betölti az AC-ba op2-t. 

LDX: N:v Z:v 

[Load index X with memory [Betölti 
az XR-1)C op2-t. 

LDY: N:v Z:v 

[Load index Y with mcmory]Betölti 
az YR-be op2-t. 

LSR: N:0 Z:v C:v 

[Shift right one bit (memory or ac¬ 
cumulator)] 

Egy bittel jobbra lépteti az operan- 
dust. A 7. bitbe 0 lép be, a 0. bit a C 
flagbe kerül. Ha nincs op2, az AC-t lép¬ 
teti. 

NOP: 

[No operation] 

Ez az utasítás semmit sem csinál. 
Időzítésre vagy helykitöltésre használ¬ 
ható. 

ÓRA: N:v Z:v 

["OR" memory with accumulator] 
Logikai ’vagy’(OR) műveletet végez 
az AC és az op2 között. 



PHA: 

[Push accumulator on stack] 

Az AC-t elmenti a stackbe. 

PHP: 

[ Push processor status on stack] 
Az SR-t elmenti a stackbe. 

PLA: N:v Z:v 

[Puli accumulator from stack] 
Visszatölti az AC-t a stackből. 

PLP: mindegyik flag 
megváltozhat 

[Puli processor status from stack] 
Visszatölti az SR-t a stackből. 

ROL: N:v Z:v C:v 

[Rotate one bit left (memory or ac¬ 
cumulator)] 

Balra forgatja az operandust egy 
bittel. A C flag lép be a 0. bitbe, a C 
flagbe pedig a 7. bit kerül. Az AC is 
forgatható. (Lásd ASL) 

ROR: N:v Z:v C:v 

[Rotate one bit right (memory or 
accumulator)] 

Jobbra forgatja az operandust egy 
bittel. A C flag lép be a 7. bitbe, a C 
flagbe pedig a 0. bit kerül. Az AC is 
forgatható. (Lásd ASL) 

RTI: mindegyik flag 
megváltozhat 

[Return from interrupt] 

Visszatérés megszakításból. Vissza¬ 
töltődik a stackből az SR és a PC (!). 
így a program futása a megsz.akítá.skor 
elmentett címtől fog folytatódni. 


RTS: 

[Return from subroutine] 
Visszatérés szubrutinból. Megfelel 
a BASIC RETURN utasításnak. A 
visszatérési címet a stackből tölti a PC- 
be. 

SBC: N:v Z:v C:v V:v 

[Subtract memory from accumula¬ 
tor with borrow] 

Kivonja az AC-ból az op2-t és ha a 
C flag 0, akkor még egyet. ’Csupa.sz’ ki¬ 
vonáshoz be kell állítani előtte a C fla- 
get. (Lásd SEC) 

SEC: C:1 

[Set carry flag] 

Beállítja a C flaget. 

SÉD: D:1 

[Set decimai mode| 

Beállítja a D flaget. Ezután BCD 
módban számol a |xP. Ritkán ha.s/nál- 
ják, pedig elég kényclme.s. 

SEI: 1:1 

[Set interrupt disable bit[ 

Beállítja az I flaget, tiltja a megsza¬ 
kításokat. 

STA: 

[Slore accumulator in memory] 

Az AC-t kiírja az op2 címére. 

STX: 

[Store index X in memory] 

Az XR-t kiírja az op2 címére. 

STY: 

[Store index Y in mcmoryl 
Az YR-t kiírja az op2 címére. 

TAX: N:v Z:v 

[Transfer accumulator to index X] 
Átmásolja az AC-t az XR-l)e 

TAY: N:v Z:v 

[Transfer accumulator to index Y| 
Átmásolja az AC-t az YR-bc. 

TSX: N:V Z:v 

[Transfer stack pointer to index X[ 
Átmásolja az SP-t az XR-bc. 

TXA: N:v Z:v 

[Transfer index X to accumulator] 
Átmásolja az XR-t az AC-be. 

TXS: 

[Transfer indcs X to stack pointer] 
Átmásolja a XR-t az SP-bc- 

TYA: N:v Z:v 

[Transfer index Y to accumulator] 
Átmásolja az YR-t az AC-bc. 

A következő részben leírjuk, ho¬ 
gyan helyezkednek cl a memóriában 
egymás után az utasílá.sok byte-jai. Eh¬ 
hez mellékelünk egy utasításkészlet-, 
művclctikéxl-, címzésmód-, végrehajtá- 
sidő-táblázatot. 
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Áttérés COMMODORE-ró! IBM gépre 


VÁLTÓ 


Mottó: 

Minden gépnél van jobb!" 


A DOS operációs rendszer 


Az operációs rendszer több részből 
áll. Az első, mondhatni legkisebb rész a 
gépben található, BIOS nevű rend¬ 
szerprogram, ami a rendszer alapvető 
inpiit-output műveleteiért felel. Ez a 
rész indul cl a rendszerindításkor, és ez 
a rész kezeli a perifériák meghajtóit. 
Indításkor keresi a rendszerlemezt, 
ami lehet floppy vagy a merevlemez is. 

Ezt követi a hierarchiában az előz.ő 
részben említett, a rendszerlemezen ta¬ 
lálható BOOT RECORD, ami a rend¬ 
szerprogram továbi részeinek betölté¬ 
séért felel. A következő rész a két rend- 
szerprogram-file, amelyek rejtett 
állományok. Ez azt jelenti, hogy a ka¬ 
talógus 'normál’ lekérésekor nem lát¬ 


hatók. Ezeknek is meghatározott he¬ 
lyük van a lemezen, de erről a lemezes 
parancsok ismertetésénél lesz szó. 

A rendszer talán legismertebb része 
a parancsértelmező, amellyel tulajdon¬ 
képpen kommunikálunk. Ezt a lemezen 
vagy a winchesteren COM- 
MAND.COM néven találjuk. Ez a rész 
a 'vírusírók kedvence’, mivel viszony¬ 
lag könnyen módosítható, és feladatá¬ 
ból adódóan — például adott program 
futtatása — hozzájut egyéb progra¬ 
mokhoz, amelyeket így könnyű meg¬ 
fertőzni. Ez a parancsértelmező tartal¬ 
máéira a ha.sználható parancsok egy ré¬ 
szét is, míg a többi, úgynevezett külső 
{>arancs önállóan futtatható segédprog¬ 
ramként található a rendszerlemezen. 


Egy, a szakirodalomban néhol elő¬ 
forduló tévedés miatt szólnunk kell a 
rezidens program fogalmáról. Az IBM 
gépeken a tár nagysága lehetővé teszi, 
hogy bizonyos sűrűn haszjiált progra¬ 
mok, programrészek állandóan a tár¬ 
ban legyenek. Ezeket a programokat, 
programrészeket rezidens programok¬ 
nak, ré.szcknck nevezik. A szakiro¬ 
dalomban egyes helyeken azt olvashat¬ 
juk, hogy a rendszer két részből áll, a 
rezidens rész a belső, míg a tranziens 
nem a tárban, hanem adathordozón lé¬ 
vő ré.sz a külső parancsok! Ez messze 
nem igaz. A tévedés oka az, hogy a 
COMMAND.COM egy része valóban 
rezidens, de csak egy része! Erről már 
a kezdet kezdetén könnyű meggyőződ¬ 
ni, elég, ha lemezről indítjuk a rend¬ 
szert, majd olyan lemezj'cl dolgozunk, 
amelyiken nincs rajta a COM- 
MAND.COM. Ilyenkor, ha valami 
használni óhajtja a a COM- 
MAND.COM által foglalt memóriate- 
rülctct, a parancsértelmező előzéke¬ 
nyen 'kivonul' a tárból, csupán egy kis 
rezidens részt hátrahagyva. Ha újra 
szükség lenne a COMMAND.COM-ra, 
a rezidens rész kérni fogja tőlünk, hogy 
tegyük be a meghajtóba a parancsértel¬ 
mezőt tartalmazó lemezt. 



Világújdonság_ 

14 nyelv egy szótárban — 182 különféle 
szótár egy zsebben 
Bármelyik nyelvről bármelyikre. 

100 000 szavas memória! 

MAGYAR NÉMET 

CSEH ANGOL 

SZLOVÁK FRANCIA 

SZERB OLASZ 

LENGYEL SPANYOL 

OROSZ PORTUGÁL 

SVÉD DÁN 

Nyelvenként — 6000 szó — 50 témakörben 550 mondat. Teljes ábécék! 

8 számjegyes számológép! 

Automatikus kikapcsolás! — 4 darab elemmel működik, mely tartozék! 

Ára: 15 900 Ft (ÁFA-val) Viszonteladóknak nagykereskedelmi ár! MegrerxJelószelvény és vásárlási utalvány a 34, oldalon. 
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Induljunk neki! 

A rendszer indításakor a Coinino- 
dore-gcix;knél megszokott sorrendre 
kell figyelni, tehát mindig a perifériá¬ 
kat keli először bekapcsolni, és utolsó¬ 
nak a gépet. A kikapcsoIá.snál termé¬ 
szetesen fordított a sorrend. Ha a rend¬ 
szert úgy indítjuk, hogy még semmit 
nem Varázsoltunk’ vele, akkor néhány 
másodperc után bejelentkezik saját 
megnevezésével (AT esetén), vagy kéri 
a dátumot és az időt (általában XT- 
nél). Ezek után egy betűt és egy ’>’ jelet 
látunk a kurzor előtt: <C> 

Ez a betű az aktuális meghajtó — 
indítás után az, ahonnan a rendszert 
töltöttük — betűjele. Megváltoztatni 
úgy lehet, hogy beírjuk az új meghajtó 
betűjelét, és egy kettőspontot, majd 
ENTERT vagy RETURNT nyomunk. 

Figyelem! Az új meghajtóban kell 
lennie lemeznek! 

Az operációs rendszer 
parancsai 

Az operációs rendszernek paran¬ 
csot adni igen egyszerű. Az IBM rend¬ 
szerben a parancs általában egy prog¬ 
ram neve, amit a parancs beütése után 
(ENTER hatására) a gép végrehajt 
(futtat). 

Egyszerű lemezes 
parancsok: 

A lemez tartalomjegyzéke 

Az IBM-gépeknél — csakúgy, mint 
például a Commodore 1581-cs lemez¬ 
meghajtónál — lehetőségünk van a tar¬ 
talomjegyzéket úgynevezett fa-struk¬ 
túrába szervezni. Ez azt jelenti, hogy 
létrehozhatunk gyakorlatilag tetszőle¬ 


ges mélységben alkatalógusokat. Tehát 
egy DIR parancs hatására — ez megfe¬ 
lel a Commodore DIRECTORY, illetve 
a load’$’,8:list parancsainak — például 
ilyesmit láthatunk: 

Volume in drive A is LEMEZNEVE 
Directory of A:\ 

DOS <DiR> 1—01—80 12:05a 

VALAMiCOM 3150 2—10—91 5:53p 

1 File(s) 245096 bytes free 

Némi magyarázat: 

A LEMEZNEVE nevű lemezünk 
katalógusát nézzük éppen, ott is a fő- 
(vagy gyökér-)könyvtárat. Ezen a leme¬ 
zen található a DOS nevű alkatalógus 
(ezt jelzi, amit 1980 január elsején 
hoztunk létre, 12 óra 05 perckor. Tehát 
máris láthatjuk, hogy a rend.szer nem¬ 
csak a bejegyzés tényét rögzíti, hanem 
a pontos idejét is. Mivel az XT gépek- 
l)en általában nincs ’örökóra’, ezért kell 
induláskor a dátumot és az időt beállí¬ 
tani. Ezen a lemezen található még a 
VALAMI nevű, COM kiterjesztésű 
program, melynek hossza 3150 byte, és 
a létrehozásának ideje. A lemezen még 
mintegy 245 kbyte-nyi üres hely van. 


A kiterjesztésekről 

Az IBM-gépeken egy file-bejegyzés 
két részből áll. A név maximum 8 ka¬ 
rakter, ami állhat az angol abc betűi¬ 
ből, számokból, sót egyéb karakterek¬ 
ből is, de néhány speciális karaktert 
nem tartalmazhat. A kiterjesztés a név¬ 
től ponttal elválasztva következik, há¬ 
rom karakter, hasonló képzési szabá¬ 
lyokkal. A ponttal együtt elhagyható, 
de ha pontot te.szünk, akkor a kiter¬ 
jesztést is meg kell adni. A kiterjesztést 
további azonosításra is használjuk, 
ezért felsorolunk néhány konvenciót: 


ASM as.sembly forráskód 
BAK biztonsági másolat 
BAS BASIC forráskód 
BAT kötegelt állomány (részletesen 
később) 

COM végrehajtható program 
DAT általában adatállomány 
DOC dokumentum 

(programleírás stb. szövegfile) 
EXE végrehajtható program 
HLP program beépített help-je 
LST nyomtatható állomány 
PÁS PASCAL forráskód 
TXT szövegszerkesztő szövegfile 
Ezekhez jó ragaszkodni, mivel sok 
program ebben a standard formátum¬ 
ban keresi az általa használt állomá¬ 
nyokat. 

A DIR parancs használatakor nem 
csak az aktuális lemezegységről, az ak¬ 
tuális könyvtárról kaphatunk listát, ha¬ 
nem bárhonnan, anélkül, hogy az alap¬ 
értelmezést megváltoztatnánk. A pa¬ 
rancs teljes formája: 

DIR (m:][úl][név][kitcrjcsztés] 
bármely paraméter elhagyható. Az [m:j 
jelenti a meghajtót, ahonnan a listát 
kérjük, az. (út) a keresési utat (melyik 
alkönyvtár), a névben illetve a kiter¬ 
jesztésben pedig a Commodore-gépek- 
nél már megismert joker karaktereket 
(* és ?) szabadon használhatjuk. Né¬ 
hány példa: 

DIR A:\DOS\*.COM 
Az A meghajtó főkönyvtárában le¬ 
vő (első backslash) DOS alkönyvtár 
minden COM kiterjesztésű file-jának 
listája. 

DIR *.* 

Egyenértékű a DIR paranccsal 
DIR ALKA'Dprg?.b* 

Az aktuális könyvtár ALKAT al¬ 
könyvtárának összes olyan programja, 
amelynek neve 4 betűs, a PRG betűk¬ 
kel kezdődik, és a kiterjesztésének első 
betűje B. 

Lengyel Lstván 


Tisztelt Szerkesztőség! 

A közelmúltban jutottam hozzá lapjuk ez évi 4. számá¬ 
hoz. Mindig örömmel olvasgatom a C-újságot, szívesen ele¬ 
mezgetem az olva.sók által beküldött programokat, rutino¬ 
kat. A már említett 4. számuk 14—15. oldalán találtam egy 
Karszky János nevű olvasó által beküldött ASCII-CHR$ át¬ 
váltó programot. Ennyi hibát, tévedést egy ilyen rövid prog¬ 
ramban még nem láttam. 

Alapállásban vitatom egy ilyen program megírásának 
szükségességét, mivel a C64 parancsmódban ját.szi könnyed¬ 


séggel átkonvertál ASCII-kódot karakterre, és fordítva, il¬ 
letve egy valamire való kézikönyv táblázatából másodpercek 
alatt kikereshető a kívánt adat. E két lehetőség lényegesen 
egyszerűbb és gyorsabb, mint Karszky úr programjának be¬ 
gépelése, futtatása, nem beszélve a programból való kilépés 
utáni bosszantó programozási balfogások elszenvedéséről 
(ezekre még visszatérek). 

Feltételezésem szerint e program írója újsütetű hobbi- 
programozó, erre utal programjának használati értéke(?), az. 
író fogalmi zavarai, programozástechnikai tévedései. Ter¬ 
mészetesen ez még nem volna baj, hiszen a kezdő korszakon 
egyszer minden számítógéptulajdonos átesik. 
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Eladó; C64, 1541 floppy, 
1802 sz. monitor, 50 lemez 
programokkal, 2 joystick 
(MK). Irányár: 40 000 Ft. 
Külön is eladó! 

Grossmann Gábor, tel.: 
140-9159 

2 db szovjet színes TV- 
met elcserélném C64-hez 
kapcsolható színes monitorra. 

Dormány József, 2370 
Dabas, Marx K. u. 74. 

Bővített Cl6-os gépemet, 
magnóval, sok programmal 
és szakirodalommal elad¬ 
nám, vagy elcserélném 2 db 
180-200 W-os hangfalra, 
vagy discofényre. Sürgős! 

Tornyos Gábor, 2944 
Bana, Petőfi út 9. 

Amigán programokat 
cserélek, keresem a space 
ace-t és a dragonislair I—Il-t. 
Listát kérek és küldök. 

Lábas Péter, 1181 Buda¬ 
pest, Darus u. 10. II/3. 

Commodore 64 + floppy 
+ 2 joystick + programok ol¬ 
csón eladók. 

Danyi Tamás, 3231 
Gyöngyö.s.solymos, Szabad¬ 
ság út 12. 

Eladó monochrom reu- 
ters monitor. 

Gidai Olivér, tel.: 1764- 
836. 

Amiga alapmemórián fu¬ 
tó programokat keresek és 
cserélek. 

Gyulay György, 1142 
Budapest, Királyhida u. 20. 

Totókulcskészítő progra¬ 
mok C64-en, melyek vezeté- 
ses játékot készítenek. Vá- 
laszlwrítékért tájékoztató! 

Nagy Miklós, Újfehértó, 
Pf.: 41. 

Eladó: C64 + 1541/2 + 
spee ddos (csak együtt) sei- 
kosha SP—180, 200 db le¬ 
mez (500 játékkal), magnó + 
20 db kazetta. 

Jáger Gábor 1034 Buda¬ 
pest, Bécsi út 88. 


16 cm fekete-fehér kis 
TV-t vennék, üzemképtelen 
is érdekel, ármegjelöléssel: 

Karmazin Zoltán, 5001 
Szolnok L, Pf.: 137. Rigó út 
5.11/21. Tel.: 56/33580. 

Eladó bővített C16 + 
könyvek + magnó + sok já¬ 
tékkal. Külön is. Irányár: 
11 000 Ft. Ezen kívül prog¬ 
ramok kazettával együtt el¬ 
adók. Műsoros kazetták is. 

Tornyos Gábor, 2944 
Bana, Petőfi Sándor út 9. 

VT 21200 Mátrix nyom¬ 
tatóhoz keresek ékezetes- 
írás-programot Commodor 
64-re. 

Bognár Attila, 1223 Bu¬ 
dapest, Rózsakért u. 13/c. 
IV/20. 

IBM PC-programokat 
cserélek és eladok. 

Láng Attila D., 1039 Bu¬ 
dapest, Gyűrű u. 28. II/6. 

Action Replay, teletext 
decoder, 512k bővítő, 
Syncro Expres.s/Cyclone 
adapter és még sok más 
Amiga-kiegészítő, valamint 
egy 3 1/2-es külső drive el¬ 
adó. 

Kiss Tamás, tel.: 129- 
5955. 

C64-es, IBM számítógé¬ 
pe saját nyelvtanára lehet, 
ha System George program- 
csomagot vásárol. Má.sfél 
évnyi tananyag (angol 2, né¬ 
met 1—2, orosz, spanyol, 
francia) diákoknak, taná¬ 
roknak 70 %-os árkedvez¬ 
ménnyel, programonként 
csak 1500 Ft. Megrendelhe¬ 
tő, válaszborítékért infor¬ 
mációt küldünk; 

Lugosi, 1327 Újpest 3, 
Pf.: 91. 

Oktatóprogramok min¬ 
den géptípusra, szinte min¬ 
den tantárgyhoz. Közepes 
méretű válaszborítékért ka- 
talógu.st küldünk. Iskoláknak 
külön kérésre extra ajánlat. 

Suli-Soft, 1327 Újpest 3, 
Pf.: 91. 


Eladó: C64/HOC—118N 
floppy, magnó, 2 joy, 100 le¬ 
mez programokkal, szakiro¬ 
dalom, 5 kazetta, rését 
gomb. Árajánlatokat: 

Kopasz Zoltán, 1214 Bu¬ 
dapest, Nap u. 10. 

525-ös lemezek 350 
Ft/10 db-os egységáron, 
utánvéttel is. Ugyanitt több¬ 
oldalas lemezjátékok kínála¬ 
ta. 

Baukál G.: 1116 Buda¬ 
pest, Fegyvernek u. 123. Te¬ 
lefon: 186-5134. 

C64 programcsere leme¬ 
zen. Eladó egy modul sok 
turbóval + frezerrel. 

Nagy Csaba, 1072 Buda¬ 
pest, Akácfa u. 30. 

Ingyenes programújságot 
készítek C16-Plus/4—116 
tulajdonosoknak. 

Hozzáférhető lemezen és 
kazettán. 

Láng Attila Dávid, Infó, 
1039 Budapest, Gyűrű u. 28. 
II/6. 

Commodore 64-hez el¬ 
adok 6 db gyári kazettát. 1 
db kazetta ára: 300 Ft. 
LAST WAR, WATER 
BATTLE, SEESAW, EAG- 
LES NEST, ÚJ VADNYU¬ 
GAT II, LASERLAND. 

Czifra Zoltán, 5231 
Fegyvernek, Kiss J. 18/a. 

Újszerű állapotban eladó: 
C64 alapgép + 1802 színes 
monitor + 1541 flqipy + 1531 
magnó +1351 mause + 1 joy¬ 
stick + lemezek + könyvek. 

Jung Müiály T., 276-8964 
du.; 17—19-ig. 1215 Buda¬ 
pest,. Katona J. u. 9. 11. c/3. 

C64 játékprogramok el¬ 
adók kazettán! Felbélyegzett 
vála.szborítékért listát küldök. 

Nagy Csaba 1399 Buda¬ 
pest, Pf.: 701/893. 

Keresek, cserélek ma¬ 
gyar szöveges kalandjátéko¬ 
kat C64-re. Listát kérek. 

Pál Richárd 6900 Makó, 
Petőfi u. 15. 


C64 + floppy + magnó + 
lemezek + kazetták együtt 
eladók. 

Palotai György 1043 Bu¬ 
dapest, Erzsébet u. 35. Tel.: 
189-4519. 

Eladó C128 + 1571 

floppy, Final Hl, Pagefox 
modul, programok, szak¬ 
könyvek. 

Tel.: napközben 168- 
7596. 

C64-es programkazettái¬ 
mat eladom (250—300 
Ft/db). Válaszborítékért lis¬ 
tát küldök. Után töl tős prog¬ 
ramok is. 

Szántai László, 2800 Ta¬ 
tabánya, Pf.: 396. 

C64 programok gyári 
változatban, 3M-es lemezen, 
leírással! Kérésre: katalógus. 

4200 Hajdúszoboszló, 
Hunyadi u. 28/b. 

Klubnak, könyvtárnak, 
iskolának átadandó ötezer 
oldal (diszken is meglévő) 
C64/C 128-as számítástech¬ 
nikai szakfordítás a 64-er 
Magazinból, hozzá kb. 1000 
lap fénymásolat (ábra, lista) 
és mintegy 200 db program¬ 
lemez. 

Szolnoki Béla, 1446 Bu¬ 
dapest, Pf.; 400. 

C64! Keresek 14 év kö¬ 
rüli grafikust. Lemezen 
küldj néhány munkát és a 
válaszlevelet! Gál Dávid 
1182 Budapest, Szalafő u. 
17. 

C64! Keresünk olyan gé¬ 
niusz zenészt, aki beállna 
csapatunkba. írj! TA- 
LON/NBS,N, LÓD. 

Gál Dávid, 1182 Buda¬ 
pest, Szalafő u. 17. 

C64-hez keresem a Mu- 
sic Maker lemezes progra¬ 
mot, klaviatúrával és hasz¬ 
nálati utasítással. Szívesen 
venném már a bérleti lehető¬ 
séget is. 

Grób László, 2083 Soly¬ 
már, Mátyás u. 107/a. 
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Még az sem baj, ha valaki kezdő létére — önkritika híján 
— publikálni kívánja ország-világ előtt hibás alkotását. 

A baj az, hogy erre cenzurálatlan lehetőséget kap (pláne 
egy jóhírű szaklap hasábjain!), és ezzel megtéveszt vagy fél¬ 
retaszít akár csak egy tanulni vágyó olvasót is. 

Kizárt dolognak tartom, hogy a T. Szerkesztőségben ne 
volna egy olyan munkatárs, aki szakembere, értője á prog¬ 
ramozásnak, így, gondolom (remélem), hogy időhiány miatt 
került az újságba e kontár munka. 

A teljesség igénye nélkül említenék jó néhány balfogást 
az ominózus programból. 

— Az író sajnálattal tudatja velünk (14. o.), hogy e prog¬ 
ram nem tartalmazza a speciális karaktereket, így pl. a 
CTRL-t sem. 

Hát igen, a CONTROL billentyű ASCII kódját nehéz dió 
volna megtalálni... 

— Az író állítja (14. o.), hogy a programot indítás után 
leállítani, másolni, a programból kilépni nem lehetséges. 

Ez az állítás a következőképpen lehetne igaz: 

„a programindítás után a STOP gombbal minden gond 
nélkül leállítható (és már ki is léptünk belőle) —, viszont 
háttértárolóra kimenteni nem lehetséges”. 

...ugyebár van némi fogalmi különbség a másolás és a 
kimentés között. 

Magyarázat gyanánt lássuk a program 50. sorát: 

— POKE 19,1 (aktuális I/O egység) 
érthetetlen, hatástalan — ez minek? 

— POKE 775,191 (kód-szöveg vektor) 
a program nem tisztázható - ez jó. 

— POKE 819,246 (SAVÉ vektor) 
a program nem kimenthető — ez jó. 

— POKE 816,157 (LOAD vektor) 

a betöltés lehetetlen — erre miért van szükség? 

— POKE 792,193 (NMI mutató) 
önmagában nem sokat ér 
.. .a program 500. sorában: 

— POKE 192,1 (kazettamotor flag) 
vicces! 

Próbáljuk csak: POKE 192,1:PRINT PEEK(192) 

...az eredmény: 0 

A 192-es tárcímet bízzuk inkább az operációs rend¬ 
szerre. 

— POKE 1,55 (tárfelosztás) 
neveté.sre ingerel 

A gép bekapc.solása utáni normál állapotban az 1 -es tár¬ 
cím értéke: 55. 

Ha kikapcsolnánk a 0-1-2-es bitek valamelyikét, mind¬ 
járt kézzelfoghatóbb lenne a hatás... 

— POKE 775,167 (LIST vektor) 
na végre, listázható a program! 

(...de miért kellett letiltani a programfutás idejére...?) 
— POKE 22,35 (füzér-verem tárcím) 
korán örültünk a listázhatóságnak,... de ez még nem 
minden: 

PRINT ERE (0) + RETURN 
eredménye: nincs más hátra, rését gomb. 

Bizony, van még mit pótolni Karszky Jánosnak a prog¬ 
ramvédelem terén. Szemmel láthatóan nem jött még rá, 
hogy a felelőtlen POKE utasítás mennyi hosszússágot okoz¬ 
hat, ráadásul a maga elé kitűzött célt meg sem közelíti velük. 

Egyébiránt ha a program felhasználója a program vége 
(EXIT TO BASIC — alias Karszky) opciót választja, nyilván 
a továbbiakban rendeltetésszerűen óhajtja használni a gé¬ 


pét. E program futtatása után jobb egy biztonsági rését vég¬ 
rehajtása. .. 

Engedtessék meg még néhány programozástechnikai 
„gyöngyszem”: 

— ugró utasítások (GOTO-GOSUB) RÉM sorokba hi¬ 
vatkoznak. Felesleges munka a gépnek. 

— az INPUT sorokat megelőző PRINT utasítás a vezérlő 
karakterekkel: felesleges: Az INPUT utáni első idézőjel mö¬ 
gé is befér. A hatás ugyanaz. 

— a 620-as sorban a MID$ függvényt követő (idézőjel; 
szóköz; crsr. balra; idézőjel) karaktersorozat felesleges. Ha 
elhagyjuk, az eredmény ugyanaz. 

— a 260. sorban a GOTO 212 helyett elég a GOTO 220 
is. Minek minden üres A$ változónál felesleges műveleteket 
végrehajtani. 

— a 450. soron a program SOHA nem fut végig, bármely 
értékű is legyen a C változó. 

— a 290. sorban, ha a felhasználó véletlenül üres szringet 
ad meg K$ értéknek, akkor a 335. sorban ILLEGAL 
QUANTITY ERROR hibát okoz. Erre pedig számítani kell! 

— Végezetül a 212. és a 213. sor annyira feleslegesen 
van megbonyolítva, hogy az az érzésem, az író fitogtatni 
akarta nem létező tudását a nála tudatlanabbak előtt. Erre 
vall az is, hogy ha egy magyar anyanyelvű ember programot 
ír magyar nyelvű felhasználóknak, miért nem kommunikál 
magyarul? Talán látványosabb? Divatosabb? Nem! Tudálé¬ 
kosabb! 

Félreértés ne essék. Nem akarom Karszky Jánost szapul- 
ni tapasztalatlanságért. Előbb-utóbb rájön a hibáira, és nyil¬ 
ván kijavítja azokat. 

Irományommal elsősorban Önöket szeretném kérni arra, 
hogy szigorúbb an szelek tálianaLa l^ 7 lécrp_c^r.»_ 
közül, esetlej 
megírt olvasí 
aszegény, haj Miskolc, 

nívóját, félre*®* 

Á . . 46/21 

Őszintén 

véleményük. | 

Válaszuk. 

Tiszteleti 



A levelét) 
csak ott van k 
közöljön-e tii 

rendszeres ollója lapunknak, meri akkor óTvasta volna 
91/3-as számunk hetedik oldalán ugyanezen szerző prog¬ 
ramjaihoz fűzött megjegyzésünket. Valóban gondolnunk 
kellett volna időszaki olvasóinkra is, és minden hibásan le¬ 
közölt program mellett ennek tényét közölnünk kellene. 

Véleményünk szerint a C-újság nem(csak) a profi prog¬ 
ramozók lapja. Úgy hisszük, egymás hibáiból is sokat lehel 
tanulni. Persze ehhez olyan éles szemű kritikusra van szük¬ 
ség, mint Ön, aki ilyen alaposan kiveséz egy megjelent prog¬ 
ramot. Ezért is közöljük levelét teljes terjedelemben. Örül¬ 
nénk, ha a jövőben is munkatársaink között üdvözölhetnénk. 
Szíve.scn közüljük kritikáit, hibaigazításait akár a C-újság- 
ban megjelent, akár máshol talált programokról. Utóbbiak 
esetében természetesen a bírált programot is kérjük. 

Üdvözlettel: 

A szerkesztőség 
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EGYESÜLET 




NOVEMBERI uic-ithaly ^ 

60 Ft-os 

vásárlási utalvány 


Beváltható készpénzes vásárlás estén: 
DIGITHALY márkabolt, 

Budapest IX., Telepy u, 29. 

Az utalvány a vásárlási ár 5%-ig 
használható feli 

Érvényes; december 31-ig. 


MAKROVILÁQ 

utazási Iroda 

Beváltható 

utazás megrendelése esetén 

az Üllói úti főirodában az alábbiak szerint; 

5 000 Ft-lg — 200 Ft kedvezmény 

10 000 Ft-lg — 400 Ft kedvezmény 

20 000 Ft-ig — 600 Ft kedvezmény 

20 000 Ft felett — 1000 Ft kedvezmény 
Csoportok Jelentkezése esetén további 
kedvezményekről az irodában lehet tárgyalni 


TDK-BUDAPEST 

NOVEMBERI 

400 Ft-os 


A NOVOTRADE SZERVÍZ Kft. az alább felsorolt szervizeiben 
mindenféle szervizszolgáltatás munkadijából 10% kedvezményt ad 
az egyesületi tagoknak. 


1053 Budapest, Magyar u. 12—14 
1083 Budapest, Szigony u. 9. 

1191 Budapest, Gábor Á. sétány 3. 

3525 Miskolc, Fazekas u. 1 —3. 

4034 Debrecen, Holló L. u. 14. 

5600 Békéscsaba, Bartók B. u. 37, 

6724 Szeged, Csongrádi sugárút 76. 
7624 Pécs, Jurisics M. u. 17. 

8000 Székesfehérvár, Széchenyi u. 1 5/a. 
9700 Szombathely, Szalonok u. 31. 
Felvevőhelyek: 

9024 Győr, Babits M. 75. 

6000 Kecskemét, Széchenyi tér 1 —3. 


Telefon: 117-3661 
Telefon: 134-3153 
Telefon: 127-4763 
Telefon: 46-17-011 
Telefon: 52-32-863 
Telefon: 66-27-195 
Telefon: 62-13-377 
Telefon: 72-11-812 
Telefon: 22-12-711 
Telefon: 94-13-419 


Telefon: 76—23—720 


Igazolás: a javítandó berendezés leadásakor egyesületi igazolvánnyal. 
A kedvezmény többször Is igénybe vehető. 



Az Országos Commodore Egyesület szolgáltatásai 


Egyesületi tagoknak 20% kedvezmény; 

VC—20 memóriabővités 3—27 kByte-os: kiépítéstől függő 

C—16, C—116 memóriájának bővítése 64 kByte-ra; 3500 Ft 

C— 16 belső 16 kByte-os EPROM bővítés: 1450 Ft 

C— 16 belső 32 kByte-os EPROM bővítés: 2900 Ft 

C—16 belső 8 kByte-os SOFT—ROM bővítés: 2800 Ft 

C—16 belső 32 kByte-os SOFT—ROM bővítés: 4000 Ft 

C—16 8 kByte-ról 32 kByte-ra átalakítás: 2000 Ft 

C—16 és 1541 kompatibilis lemezegység párhuzamosítása: 3200 Ft 

SOFTROM modul 32K, kikapcsoláskor sem felejt C-16, C-116, +4 5000 Ft 

FÉK C—16, C—116, +4 potméteres sebességváltoztatás 

0%-tól 100%-ig fokozatmentesen 2000 Ft 

TTL IC-teszter (Cartrldge+lemezen a program) 4300 Ft 

+4. C—16, C—116 UNI—ROM modul különféle kiépítésekben: 

— 8 kByte SOFT—ROM 3400 Ft 

— 16 kByte SOFT—ROM 4000 Ft 

— 8 kByte SOFT—ROM 16 kByte EPROM 4400 Ft 

— 16 kByte SOFT—ROM 16 kByte EPROM 5000 Ft 

— 16 kByte EPROM 2200 Ft 

Kedvezmény nélkül: 

Letilthatatlan RÉSÉT C—16, C—116, +4 minden programot megállít 3000 Ft 

+4 és 1641 kompatibilis lemezegység párhuzamosítása 1450 Ft 


vásárlási utalvány 

Beváltható: TDK-BUDAPEST 
1117 Budapest, Schönhercz Z. u.21. 
Egy gép vásárlásához 
egy utalvány használható feli 

Érvényes: december 31-ig. 


Az EPROM-ba hozott programokat vagy a már kész menük valamelyikét építjük be 
(bekapcsoláskor és RÉSÉT-kor menüvel jelentkezik, kikapcsoláskor nem törlődik). A 
SOFT—ROM tetszőleges EPROM menü futtatására alkalmas (RÉSÉT-kor menüvel je¬ 
lentkezik. kikapcsoláskor törlődik). 

A párhuzamosított lemezegységhez jár egy lemezoldalnyi speciális program, melyek 
az új lehetőséget kihasználják (20-szoros gyorstöltő, 15 niásodprerces lemezoldal- 
másoló stb.). 

A fenti bővítések megrendelhetőek az OCE. irodájában a Pötyögőszolgálat napjain 
16— 18 óra között. Részletes felvilágosítást az 1-363-951 -es telefonszámon tudunk 
nyújtani (főleg este). Árainkat az alkatrészárak változásai befolyásolhatják. 


TDK-BUDAPEST 

NOVEMBERI 

400 Ft-os 

vásárlási utalvány 

Beváltható: TDK-BUDAPEST 
1117 Budapest, Schönhercz Z. u.21. 
Egy gép vásárlásához 
egy utalvány használható feli 

Érvényes: december 31-ig. 


r 


MEGRENDELŐLAP 

Megrendelek.. . db 14 nyelvű elektronikus szótárt. 

Kérem a készüléket az alábbi címre postai utánvéttel elküldeni: 


NÉV: 


. . irányítószám. (város) 

.... (járás, kerület)..utca, 

házszám. emelet, ajtó. 


aláírás 
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A megrendelőlapot TKD-BUDAPEST címére kérjük elküldeni: 
1117 Budapest, Schönhercz Zoltán u. 21. Tel.: 181-0352 


















Központ: 


1053 Budapest, Heszimann I. u. 9. 

Tel.: 117-4144 Tx: 22-7621 Fax: 117-9692 


Budapesti szervizeink: 

1053 Budapest, Magyar u. 12—14. Tel.: 117-3551 
1191 Budapest, Gábor A. u. 3. Tel.: 127-4763 
1083 Budapest, Szigony u. 9. Tel.: 134-3153 


Számítógépek és perifériák kölcsönzése: 
1092 Budapest, Bakáts tér 4. 
Tel.: 117-0061 


Professzionális számítógépek 
PC XT/AT 


Otthoni és iskolai számítógépek 


Lemezegységek, nyomtatók, hálózatok, 
monochrom és színes monitorok 


COMMODORE, ATARI, VIDEOTON TVC 
márkaszerviz 


Országos 

számítógép-szervizhálózat 


Gépek értékesítése 
szervizeinkben 





PC shop: 

1053 Budapest, Magyar u. 1. 
Tel.: 118-9481 

SZÁMÍTÓGÉPEK MINTA UTÁNI ÉRTÉKESÍTÉSE 
szállítással és üzembehelyezéssel 

























Ára: 58 Ft 



Budapest XIII., Balzac utca 35. 
Telefon: 1402-954 















